G
Gord Dibben
You most likely will remain frustrated if you cannot provide more details
than you have.
Try this sheet event code.
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "B1:B10" '<== change to suit
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Application.EnableEvents = False
With Target
If .Offset(0, -1).Value = "" Then
MsgBox "please fill in" & .Offset(0, -1).Address
.ClearContents
End If
End With
End If
Application.EnableEvents = True
End Sub
Gord Dibben MS Excel MVP
than you have.
Try this sheet event code.
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "B1:B10" '<== change to suit
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
Application.EnableEvents = False
With Target
If .Offset(0, -1).Value = "" Then
MsgBox "please fill in" & .Offset(0, -1).Address
.ClearContents
End If
End With
End If
Application.EnableEvents = True
End Sub
Gord Dibben MS Excel MVP