That is a very good point xld!

How about this :-

[VBA]
'---------------------------------------'
'-- Dealer No Field --'
'---------------------------------------'
Private Sub txtDealerNo_Change()
Call sDName
End Sub

Private Sub txtDealerNo_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call sDName
End Sub
Private Sub sDName()
Dim nLook As Variant
Dim dLook As Variant
Dim sLook As Variant
nLook = Application.VLookup(Me.txtDealerNo.Value, ws.Range("V14:X1033"), 1, True)
dLook = Application.VLookup(Me.txtDealerNo.Value, ws.Range("V14:X1033"), 2, True)
sLook = Application.VLookup(Me.txtDealerNo.Value, ws.Range("V14:X1033"), 3, True)
If Me.txtDealerNo.Value = nLook Then
Me.txtDealerName.Value = dLook

ElseIf Me.txtDealerNo.Value = "" Then
Me.txtDealerName.Value = ""

End If
End Sub
[/VBA]

It now errors with 'Object Required' and highlights :
nLook = Application.VLookup(Me.txtDealerNo.Value, ws.Range("V14:X1033"), 1, True)