Sub test()
t = Sheets(Sheets.Count).Range("c2").Text
For j = j = 15 To 46
s = Sheets(j).Name
'MsgBox Mid(s, 1, Len(s)) & vbLf & Mid(t, 1, Len(s))
If Mid(s, 1, Len(s)) = Mid(t, 1, Len(s)) Then
Sheets(Sheets.Count).Select
d = Cells(2, 7) & " " & Cells(2, 8)
Sheets(j).Select
Cells(7, 8) = d
Exit For
End If
Next
End Sub