10/02/11 00:47:06
>>258
元のプログラム構造を尊重した一例。
本当はMsgBoxはどちらか一カ所にすべき。
Sub main()
If ChkShtName Then
MsgBox Now
End If
End Sub
Function ChkShtName() As Boolean
If ActiveSheet.Name <> "xoxo" Then
MsgBox "シートは:" & ActiveSheet.Name
ChkShtName = False '(1) ここで本当はmainを抜けたい
Else
ChkShtName = True
End If
End Function