セルを選択している場合、セルのアドレスを表示します。選択していない場合、メッセージで表示します。 Sub Sample97() 'セルを選択しているかどうか判別する If TypeName(Selection) = "Range" Then MsgBox Selection.Address Else MsgBox "セルを選択して下さい。" End If End Sub