Visual Basic 6 - Aprire foglio con excel

Ciao a tutti .
Sto cercando di fare un programmino per una mia amica , solo che sono ad un punto morto.
Ah , premetto il "semplice programmino" lo sto facendo in Excel usando tutte le mie nozioni di VB , comunque :
nel file ci sono circa 50 fogli di lavoro , ed, ognuno ha un nome che inizia con 3 cifre (univoche) ed una piccola descrizione (es. 025 cdmusica) , vorrei che , inserendo in una textbox le 3 cifre riferite al foglio da aprire , questo mi si apra in una posizione specifica (es. sempre nella cella A1,). La text box di inserimento dati ed il relativo pulsante li ho gia' inseriti in ogni foglio.

non si capisce bene cosa vuoi fare !

Immaginavo che non riuscivo a spiearmi bene , Excuse me.
Praticamente vorrei saltare da un foglio all'altro di excel inserendo in una text box (contenuta in ogni foglio) solo i primi 3 caratteri ( che sono numeri) del nome del foglio in cui vorrei andare.
es. Mi trovo nella cella A1 del foglio "003 Music" ,inserisco nella text box "111" e dopo aver digitato nel commandbutton vado alla cella A1 del foglio "111 varius" , e cosi' via per potermi spostare da un foglio all'altro senza dovermi spostare con le barre.

ricapitoliamo hehehe

hai un foglio excel chiamato ipotesi 001 music con dentro una text e un bottone.

vorresti spostarti nei tuoi tanti fogli semplicemente scrivendo nella text il numero della pagina es. 023 e cliccando sul bottone.


Se fosse cosi penso di poterti aiutare.

Perfetto , hai capito in pieno.
Solo per diritto di cronaca , l atextbox ed il bottone sono in ogni foglio , cosicche' posso spostarmi (come giustamente da te inteso) da un foglio all'altro.
Grazie in anticipo.

ho tirato giu qualcosa che si sposta nel foglio che vuoi ma ogni volta apre il file exel.

ora ci smanetto bene vediamo se riesco mantendo lo stesso file aperto a spostarsi tramite text sui fogli...

Arigrazie

fai una macro , inserisci il pulsante.

ti uscira una inputbox che ti chiede di digitare il numero del foglio dove vuoi andare!!!!!!

fatta!!!!!

Private Sub CommandButton1_Click()
Dim i As Integer
i = InputBox("digitare il numero del foglio")
Sheets(i).Activate
End Sub