Renderei le conversioni un po' più esplicite:
codice:
Dim N As Integer
N = CInt(Application.InputBox("inserisci numero"))
Windows("file numero (" & CStr(N) & ") .xls").Activate
Eventualmente poi puoi aggiungere la gestione degli errori e gestire il caso in cui l'utente inserisca una stringa invece che un numero.

Per inciso, il linguaggio di riferimento va sempre specificato nel titolo, e il codice va specificato tra tag [CODE] ... [/CODE]; ora correggo io, in futuro ricordatene.