Error message if any of 3 cells are blank

[AndyB63UK]

On a spreadsheet I have a "Save" button which saves the sheet in a specific place determined by the contents of 3 cells.
C4 = Date, E4 = Venue, I4 = Name
These three cells determine the location and name the file will be saved; c:\Venue\Year (from C4)\Month (from C4)\Name (a combination of day from C4 and name)

Can I add an IF statement in the code for the save button that pops up an error message if any 1 of the 3 cells are blank?

 

[AndyB63UK]

If Flag = True is showing as a syntax error

 

[jim may]

maybe it should be If Flag = True then

 

[Peter_SSs]

I haven't studied your existing code, but this should be a fairly simple way to confirm the cells are complete.
It's also easily expandable if your decide there are more (or less) required cells.

Private Sub SaveSR_Click()
  Dim MyPath  As String
  Dim MyArr   As Variant
  Dim pNum    As Long
  Dim pBuf    As String
  Dim ReqCells As Range
  
  Set ReqCells = Range("C4, E4, I4") '<- Add/reduce as needed
  
  If WorksheetFunction.CountA(ReqCells) = ReqCells.Cells.Count Then
  
    'Rest of your existing code goes here
  
  Else
    MsgBox "All the following cells must be completed: " & ReqCells.Address(0, 0)
  End If
End Sub