VBAでシートを削除する方法です。
Worksheets("シート名を入力").Deleteで削除します。
ただし、存在しないシートを指定した場合はエラーになるので、
削除する前にシートが存在するかチェックする必要があります。
シートが存在するかのチェックはこちらから↓
VBAで対象のシートが存在するかチェックする方法
--------------------------------------------------------------
Sub Sheet_delete(sheetname As String)
'対象のシートが存在するかチェックを行う
'存在する場合は削除を実行
If Sheet_存在Check(sheetname) = True Then
Application.DisplayAlerts = False '確認メッセージを表示しない
Worksheets(sheetname).Delete
Application.DisplayAlerts = True '確認メッセージを表示する。
End If
End Sub
----------------------------------------------------------------
EXCEL VBA xls Excel2003
0 件のコメント:
コメントを投稿