I couldn't get the above to work either so here is what I did:

Create sheet called MySheets
In cell C1 (on MySheets) type "=CONCATENATE("'MySheets'!A1:A",COUNTA(A:A))"

Place the following code in a module:
Sub OpenUp()
Call MakeTabsList
Call FillListFillRange
End Sub

Sub MakeTabsList()
Dim Sh As Worksheet
Dim i As Integer
For Each Sh In Worksheets
Sheets("MySheets").Range("A1").Offset(i) = Sh.Name
i = i + 1
Next Sh
End Sub

Sub FillListFillRange()
Sheets("Admin - Forms").ComboSheets.ListFillRange = _
Sheets("MySheets").Range("C1").Text
End Sub

Sub GotoSheet()
Dim ShName As String
ShName = Sheets("MySheets").Range("B1")
Sheets(ShName).Activate
Sheets("MySheets").Range("B1").Value = "Select a sheet to jump to"
End Sub

On the sheet of your choice place a combobox and commandbutton (I've named
them ComboSheets and ButtonGoToSheet). in the code for that sheet place the
following:

Private Sub ButtonGoToSheet_Click()
Call GotoSheet
End Sub

Now in the workbook_activate () event place the following line:
Call OpenUp

That should do it.

"huntermcg" wrote:


Is there any PRO who can help me with this ??

(read former 2 posts of mine).


--
huntermcg
------------------------------------------------------------------------
huntermcg's Profile: http://www.excelforum.com/member.php...o&userid=19391
View this thread: http://www.excelforum.com/showthread...hreadid=469122