Function SheetExists(ShName As String) As Boolean
    
    Dim Sh As Worksheet
    
    ' Initial conditions
    SheetExists = False
    
    For Each Sh In ActiveWorkbook.Sheets
        
        If Sh.Name Like ShName Then
            
            SheetExists = True
            Set Sh = Nothing
            Exit Function
        End If
    Next Sh
End Function