Do right click on sheet tab and select view cod and paste the below code. Return to excel and check
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Byte
On Error Resume Next
Application.EnableEvents = False
For i = 1 To 2
With Cells(i, "B")
If Cells(i, "A").Value <> "" Then If .Value = "" Then .Select: GoTo MyMsg
End With
Next i
Application.EnableEvents = True
Exit Sub
MyMsg:
Application.EnableEvents = True
MsgBox "Fill the selcted cell before moving to other fields", vbInformation, "Fill Selected Cell"
End Sub
Bookmarks