Test or check if sheet exists

Question

Dim wkbkdestination As Workbook
Dim destsheet As Worksheet

For Each ThisWorkSheet In wkbkorigin.Worksheets 
    'this throws subscript out of range if there is not a sheet in the destination 
    'workbook that has the same name as the current sheet in the origin workbook.
    Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name) 
Next

Basically, I iterate through every sheet in the origin workbook by looping through it, then I set the destsheet property in the destination workbook to the sheet with the same name as the iteration's current iteration.

How do I find out if that sheet is real? the following:

If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then 

Answer 1

Some people don't like this strategy because it makes "inappropriate" use of error handling, but in VBA, I believe it's fine. Looping through all the sheets until you discover a match is an alternative strategy.

Function WorksheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet

    If wb Is Nothing Then Set wb = ThisWorkbook
    On Error Resume Next
    Set sht = wb.Sheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is Nothing
End Function

I hope this helps you.