Hi
Try this sheet event macro. Select the sheet tab, right click, select view code, then paste in the code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo errhand
Application.EnableEvents = False
For Each ce In Range("D77:D132")
If Not IsEmpty(ce) And IsEmpty(ce.Offset(0, -2)) Then
ce.Offset(0, -2).Select
MsgBox "Must fill this cell"
Exit For
End If
Next ce
errhand:
Application.EnableEvents = True
End Sub
If you have data in column D for the relevant range, and there is nothing in column B, then it will prompt for input.
rylo
Bookmarks