Excel gadgets: list all sheet and click one of them to automatically jump over.

Xiaogongju

I'm glad that I just implemented a function. In Excel VBA programming, I can finally list all the sheet and click one of them to automatically jump over! The Code is as follows:

Private sub listbox#click ()

Workbooks. application. Sheets (listbox1.listindex + 1). Select

End sub

 

 

 

Private sub userform_click ()

Listbox1.clear

Dim I as integer

For I = 1 to workbooks. application. Sheets. Count

Set wsheeta = workbooks. application. Sheets (I)

Me. listbox1.additem wsheeta. Name

Next I

End sub