If Range("A1").Value = "" Then
MsgBox "Blank"
End If
Option Explicit
Sub Danchu1()
If Range("A1").Value = "" Then
MsgBox "Blank"
End If
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Or Target.Cells.Count > 1 Then Exit Sub
If Range("A1").Value = "" Then
MsgBox "Blank"
End If
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("U59").Value = "" Then
MsgBox "Blank"
End If
End Sub