str_text = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text ‘ボタン名取得
If Len(str_text) < 1 Then ‘名前が1文字以上でなければ
MsgBox “未使用のボタンです”
GoTo Label01’適当な場所に飛ばす
End If
str_text = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text ‘ボタン名取得
If Len(str_text) < 1 Then ‘名前が1文字以上でなければ
MsgBox “未使用のボタンです”
GoTo Label01’適当な場所に飛ばす
End If