EXCEL-VBA：檢測Sheet是否存在

Sub test()
    MsgBox CheckIsExistsSheetName("Sheet1")
End Sub

Function CheckIsExistsSheetName(ByVal SheetName) As Boolean
    CheckIsExistsSheetName = False
    Dim sheet As Worksheet
    For Each sheet In ThisWorkbook.Sheets
        If sheet.Name = SheetName Then
            CheckIsExistsSheetName = True
            Exit Function
        End If
    Next
End Function