Check Cell Value before starting VBA Code

[An Quala]

Hi, so I have recorded my macros which are running smoothly, I just want to add one more function in this macro which will be with VBA, so what I want to do is I want to check the values in 3 sheets, 'sheet1!'D1, sheet2!D1, sheet3!D1 have values then run the code otherwise show a message box "The sheets are empty"

Because right now the macros are being run even if the sheets are empty, and I don't want to do that.

 

[Joe4]

You can do put this at the top of your VBA procedure:

If Sheets("Sheet1").Range("D1") = "" Or Sheets("Sheet2").Range("D1") = "" Or Sheets("Sheet3").Range("D1") = "" Then
    MsgBox "At least one of the sheets is empty!"
    Exit Sub
End If