Excel VBA 質問スレ Part65

[517 デフォルトの名無しさん (ﾜｯﾁｮｲ 77ce-Ho7r) 2020/04/21(火) 23:30:41.07 ID:PwHPaaVD0]

>>513
s = ActiveSheet.Name
Select Case s
　　Case "Sheet3", "Sheet6"　' コピーできないシート名を並べる
　　　　MsgBox "コピー不可"
　　Case Else
　　　　ActiveSheet.Copy
　　　　MsgBox "コピー完了"
End Select