第37回「vbaからexcelシート名を確認する」

第37回「vbaからexcelシート名を確認する」です。

Sub SheetChk()
    Dim ws As Worksheet
    For Each ws In Worksheets
        'If ws.Name = "Sheet1" And ws.Visible Then MsgBox ws.Name, vbInformation
        MsgBox ws.Name, vbInformation
    Next ws
End Sub