THANKS A MILLION TO ALL

Private Sub ComboBox1_Click()
n = Cells(6, 6)

Select Case n
Case 1
Application.Goto Reference:=Worksheets("IB input").Range("d35"), _
Scroll:=True
Case 2
Application.Goto Reference:=Worksheets("IB input").Range("d62"), _
Scroll:=True

End Select

End Sub


The following is the Public sub:
Sub Getdata()

***There is a section of code that is for logging on a database server here***
Worksheets("Txn").Select
HRETRIEVE = EssVRetrieve("Txn", Null, 1)


Worksheets("Rev").Activate
HRETRIEVE = EssVRetrieve("Rev", Null, 1)


Worksheets("RPT").Activate
HRETRIEVE = EssVRetrieve("RPT", Null, 1)


Worksheets("MTD").Activate
HRETRIEVE = EssVRetrieve("MTD", Null, 1)
Worksheets("Top List").Activate

MsgBox ("RETRIEVE DONE")

End Sub




--
Thanks a million for your time and expert advice :-)
Jaylin
*****Jaylin Message ended*******


"Jaylin" wrote:

I have tried to run a Public sub code, but it keeps jumping to a private
combo box sub even I did not have a code written for this stop

Would appreciate expertise in the problem
--
Thanks a million for your time and expert advice :-)
Jaylin
*****Jaylin Message ended*******