実行時エラー424の発生について

質問

エクセル2003で印刷指定マクロをつくりましたが、「実行時エラー424 オブジェクトがありません」とエラーがでるシートと正常に動くシートがあります。しかも、同じブック内です。
コンポボックスか条件付き書式が入っていることが原因ではと思うのですが、よく分かりません。
教えて下さい。以下にそのマクロを記述します。

Sub PrintArea_5()
Dim pArea As Range
Worksheets("選抜").Select
Prompt = "印刷範囲をマウスでドラッグして下さい。"
Set pArea = Application.InputBox(Prompt, Type:=8)
ActiveSheet.PageSetup.PrintArea = pArea.Address
End Sub

回答No.1

ja7awu

「キャンセル」ボタンを押したときのエラーが考えられます。
次のような感じで如何でしょうか。

On Error Resume Next
Set pArea = Application.InputBox(Prompt, Type:=8)
If Err.Number > 0 Then Exit Sub

補足

早速の回答ありがたいです。
回答を参考に試してみましたが、
現象には変化ありませんでした。
やはりこの部分
Set pArea = Application.InputBox(Prompt, Type:=8)
でエラーが起きます。
やはりコンボボックスか条件付き書式入りのシートのみが悪影響を及ぼしているとしか考えられませんが・・・・・。
それがなぜかは分かりません。