エドルフ族

ちょっくらエクセルのマクロ（ＶＢＡ）でも覚えようかなってことで、覚えたことのメモ。

シートを削除する関数。

'-------------------------------------------------------------------------------
' シートの削除
'-------------------------------------------------------------------------------
Sub DeleteSheet(strSheet As String)

    ' strSheet : 削除したいシート名

    ' シート内のA1セルを参照し、エラーにならないならシートが存在するので削除
    If Not IsError(Evaluate("'" & strSheet & "'!A1")) Then
        
        ' 削除確認を一時的に解除
        Application.DisplayAlerts = False
        
        ' 削除
        Worksheets(strSheet).Delete
        
        ' 削除確認を元に戻す
        Application.DisplayAlerts = True
    
    End If

End Sub
'-------------------------------------------------------------------------------

なかなか便利だねぇ、マクロ。