Excel find worksheet by name

gistfile1.vb

Function FindWorksheet(sheetName As String) As Worksheet
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = sheetName Then Set FindWorksheet = ws
    Next
End Function