Try this version which is what Jim gave you slightly modified.

Private Sub DList_Change()
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

Let us know if it runs this time.


"Rob" wrote:

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