{"id":3270,"date":"2021-04-24T10:01:41","date_gmt":"2021-04-24T17:01:41","guid":{"rendered":"https:\/\/SUMMALAI.COM\/?p=3270"},"modified":"2021-04-24T10:01:42","modified_gmt":"2021-04-24T17:01:42","slug":"how-to-check-if-a-worksheet-exists-in-excel-vba","status":"publish","type":"post","link":"https:\/\/SUMMALAI.COM\/?p=3270","title":{"rendered":"How to Check if a Worksheet Exists in Excel VBA"},"content":{"rendered":"\n

There is a couple of ways to do this.<\/p>\n\n\n\n

Solutions 1, use a for – next loop to check worksheet one by one.<\/p>\n\n\n\n

Function WorksheetExists(ByVal WorksheetName As String) As Boolean
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Worksheets
If Application.Proper(Sht.Name) = Application.Proper(WorksheetName) Then
WorksheetExists = True
Exit Function
End If
Next Sht
WorksheetExists = False
End Function<\/em><\/p>\n\n\n\n

\"\"
This is a sample for deleting a worksheet if exists<\/figcaption><\/figure>\n\n\n\n

Solution 2, <\/p>\n\n\n\n

Setting the non-existent sheet as an object and then blowing through the errors is clever indeed. Also learned from the use of wildcard * in the second suggestion.<\/p>\n\n\n\n

Public Function WorksheetExists(ByVal WorksheetName As String) As Boolean
On Error Resume Next
WorksheetExists = (Sheets(WorksheetName).Name <> “”)
On Error GoTo 0
End Function<\/em><\/p>\n","protected":false},"excerpt":{"rendered":"

There is a couple of ways to do this. Solutions 1, use a for – next loop to check worksheet one by one. Function WorksheetExists(ByVal WorksheetName As String) As BooleanDim Sht As WorksheetFor Each Sht In ThisWorkbook.WorksheetsIf Application.Proper(Sht.Name) = Application.Proper(WorksheetName) ThenWorksheetExists = TrueExit FunctionEnd IfNext ShtWorksheetExists = FalseEnd Function Solution 2, Setting the non-existent sheet Read More<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_bbp_topic_count":0,"_bbp_reply_count":0,"_bbp_total_topic_count":0,"_bbp_total_reply_count":0,"_bbp_voice_count":0,"_bbp_anonymous_reply_count":0,"_bbp_topic_count_hidden":0,"_bbp_reply_count_hidden":0,"_bbp_forum_subforum_count":0,"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[10,18],"tags":[700],"class_list":["post-3270","post","type-post","status-publish","format-standard","hentry","category-microsoft","category-microsoft-office","tag-check-if-a-worksheet-exists"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t