Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If cell.Address Like "$A$*" And cell.Value <> "" Then
Debug.Print Replace(cell.Address, "A", "B")
If Range(Replace(cell.Address, "A", "B")) = "" Then
MsgBox ("Please fill Column B First")
cell.ClearContents
End If
End If
Next cell
End Sub
|