How to use spinbutton to alternate among sheets?

[marlonsaveri]

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 If
 Next i
 sheets(Number_of_Found_Sheets(0)).select

Then, I need make a form with labels and spinbuttons to alternate among these sheets. How to do it?