Macro to save file if cells are filled - excel

Question

I want to save my file in a particular SharePoint folder when I press a button.
Within the same Excel spreadsheet I have data validation cells that should not be blank. If they are blank the macro should give me an error message and tell me that certain cells are blank and needs to be filled. If they are not blank, then save the file in the SharePoint folder.
My macro is as follows:
Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName1 As String
Path = "https://xxx.sharepoint.com/sites/xxxx/xxxxxxxxxxxxx/"
FileName1 = Range("$B$2").Text
ActiveWorkbook.SaveAs Filename:=Path & FileName1 & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
The cells are AD9:AM9 and AD10:AM10

Answer 1

This if statement checks if cells are empty and proceeds to end the macro before saving if the range is empty. I merged your ranges as they are adjacent.
Private Sub CommandButton1_Click()
Dim Path As String
Dim FileName1 As String
If WorksheetFunction.CountA(Range("AD9:AM10")) = 0 Then
MsgBox "Data Validation Fields are empty"
end ' stops the macro from running
Else
Path = "https://xxx.sharepoint.com/sites/xxxx/xxxxxxxxxxxxx/"
FileName1 = Range("$B$2").Text
ActiveWorkbook.SaveAs Filename:=Path & FileName1 & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
End if
End Sub

Answer 2

Please use the Workbook_BeforeSave event like this:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet, rng As Range, emptRng As Range
Set sh = ActiveSheet 'use here your sheet
Set rng = sh.Range("AD9:AM10")
On Error Resume Next
Set emptRng = rng.SpecialCells(xlCellTypeBlanks)
If Err.Number = 0 Then
Cancel = True
MsgBox "There are empty cells in the range " & rng.Address & "." & vbCrLf & _
"Please check, correct and save again after that..."
End If
On Error GoTo 0
End Sub