xxxxxxxxxx
Sub CheckIfCellIsBlank()
Dim rng As Range
Set rng = Range("A1") ' Change the cell reference as per your requirement
If Application.WorksheetFunction.IsBlank(rng) Then
MsgBox "The cell is blank."
Else
MsgBox "The cell is not blank."
End If
End Sub