VBA Code to validate filled cells

[slora00]

Hello Community,

I've been trying to make a code and have not been able to crack it, so here I am asking for help.

The code should be pretty easy. The end goal is to save the Excel file in pdf. format in a specific folder, but before that, I need the macro to check if the following cells are NOT empty:
-D7, D9, D11, D18, D19
-E18, F18.
-J7, J9, J11, J18
-K19

Then, if any of them is Empty, I would like to show a Message Box saying something like "Please fill cell ...." and the cell that is empty. And also, if any of those cells is empty, then the macro should not save the file as PDF until all cells are filled.

Finally, when all cells are filled, save the file as PDF and show a Message Box saying "The file was saved succesfully"

Thank you in advance!

 

[mumps]

Change the folder path (in red) and the file name (in blue) to suit your needs.

Sub ValidateCells()
    Application.ScreenUpdating = False
    Dim rng As Range
    For Each rng In Range("D7, D9, D11, D18, D19,E18, F18,J7, J9, J11, J18,K19")
        If rng = "" Then
            MsgBox ("Please fill cell " & rng.Address(0, 0) & ".")
            rng.Select
            Exit Sub
        End If
    Next rng
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Test\FileName" & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Application.ScreenUpdating = True
End Sub