On 27 Nov, 16:33, "Don Guillett" wrote:
One way. Modify to suit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target.Offset(, -1) = "" Then
Target.Offset(, -1).Select
MsgBox "Pleae fill in"
Else
Target.Offset(, 1).Select
End If
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Steve" wrote in message

...

Hi Don
Can you point me in the direction of maybe a tutorial on how to do
this, It's a bit over my head

TIA
Steve