Xiaogongju
Very happy, just achieved a function, Excel's VBA programming, can finally list all the sheet, then click on one, automatically jump! The code is simple, as follows:
Private sub listbox1_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