Sub シートが表示中か非表示中か判定する() If Worksheets("Sheet1").Visible = True Then MsgBox "Sheet1 は 表示中 設定です" Else MsgBox "Sheet1 は 非表示 設定です" End If End Sub