Hi,
I imagined a command to open a spreadsheet containing a typed text (textbox1) in its name.
CityName = textbox1.text
For i = 1 To Sheets.count
If InStr(1, CityName, sheets(i).name, 1) <> 0 and InStr(1, CityName, sheets(i).name, 1) <> Null Then
Number_of_Found_Sheets(j) = i
j = j+1
End...