Private Sub Worksheet_Change(ByVal Target as Range)
If Target.Address <> "$A" Then Exit Sub
If [A1].Value = "1" Then
MsgBox "Incomplete Invoice, please complete the following before saving." + vbCrLf + "" + vbCrLf + " Customer Reference, Invoice Number & Price.", VBINFO, " B_2 "
End If
End Sub