mySheet Is Nothing

質問

以下の処理を実行して、「代入されています。」というメッセージを表示したいのですが、
どのようにすれば良いのでしょうか？
Sub 代入の確認()
Dim mySheet As Worksheet
If mySheet Is Nothing Then
MsgBox "代入されていません。"
Else
MsgBox "代入されています。"
End If
End Sub

回答No.1

nag0720 · ベストアンサー

mySheetってなんでしょうか？
「代入されています。」と表示したいだけなら、Nothingで判定する前にmySheetに何かを代入しておけばいいだけです。
例えば、
Set mySheet = ActiveSheet
とか。

お礼

「代入されています。」と表示されました。ありがとうございました。