Need help to pop up the mesgbox on null cells

Maybe:

Sub abdullahsikander()
Dim rcell As Range
For Each rcell In ActiveSheet.UsedRange
    If rcell.Value = "" Then
        MsgBox "Error blank cell found at Row " & rcell.Row & " Column " & rcell.Column
    End If
Next rcell
End Sub