Sub check_shtname()
MsgBox Sheet_Exist("Sheet1")
End Sub
Function Sheet_Exist(shtname As String)
Dim WS
For Each WS In Excel.Worksheets
If WS.Name = shtname Then
Sheet_Exist = "Sheet Exist"
Exit Function
End If
Next
Sheet_Exist = "Sheet Not Exist"
End Function
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts