>>965
あと
Dim cnt As String
にして文字列で代入すれば()の中にダブルクォートがいらないから見やすくなるよ

cnt = "1"
Sheets(cnt).Select