Or be more specific in your reference.

Call Worksheets("Sheet1").GotoDList()
or
Call ThisWorkbook.GotoDList()
or ...

Depending where you have put the code you may need to be very explicit in
where the code resides.
--
HTH...

Jim Thomlinson


"Tom Ogilvy" wrote:

Put gotoDlist in the same module as Dlist_Change

--
Regards,
Tom Ogilvy



"Rob" wrote in message
...
Thanks Jim, I tried that and I keep getting "Sub or Function not defined"

"Jim Thomlinson" wrote:

Private Sub DList_Change()
Call GoToDList
End Sub


Sub GoToDList()
Dim DNum
DNum = DList.Value

If DNum < "0" Then
Range("A" & DNum).Activate
End If

DList.Value = "0"
End Sub


--
HTH...

Jim Thomlinson


"Rob" wrote:

I have a ComboBox and Below is the code for it. The Code works
perfectly as
it should; there is absolutely no problems with the code, but here's my
quandry...

When I use,

Private Sub DList_Change()
Dim DNum
DNum = DList.Value

If DNum < "0" Then
Range("A" & DNum).Activate
End If

DList.Value = "0"
End Sub

It works

When I do this....

Private Sub DList_Change()
ThisWorkbook.GoToDList
End Sub

and the code for GoToDList is...

Sub GoToDList()
Dim DNum
DNum = DList.Value

If DNum < "0" Then
Range("A" & DNum).Activate
End If

DList.Value = "0"
End Sub


It doesn't work at all, I keep getting errors to debug. I don't
understand;
I use the exact same code.

Thanks Very Much In Advance,
Rob