'選択しているのがセルかどうか判別します。 Sub Sample35() If TypeName(Selection) = "Range" Then MsgBox "セルが選択されています" Else MsgBox "「" & TypeName(Selection) & "」が選択されています" End If End Sub