Function GetWorksheetByName(ByRef shName As String) As Excel.Worksheet
Dim sht As Worksheet                        'переменная цикла
For Each sht In ThisWorkbook.Worksheets     'цикл по всем листам книги
    If shName = sht.Name Then               'найден требуемый лист:
        Set GetWorksheetByName = sht        'возвращаем ссылку на него
        Exit Function                       'и выходим "не с пустыми руками"
    End If
Next sht                                    'все листы перебраны...
Set GetWorksheetByName = Nothing            'а нужного - нет!
End Function

Sub main()
Dim sh As Worksheet
Set sh = GetWorksheetByName( "Лист3" )
End Sub