replacing sheet("XX").Select with for Loop Worksheet Name

Here is the For Loop I used to to find the name and range for a Workbook

For Each wsh In ThisWorkbook.Worksheets
    If (Left(wsh.Name, 3) = "001") Then
        Set Rng = wsh.Range("A1").CurrentRegion
        Exit For
    End If
Next

But now how do I just replace the Workbook with the following code above with the one below with If (Left(wsh.Name, 3) = "001")

    Sheets("001_Table").Select