Message if any cell within a range is blank

[Chicken6]

Hi,
going crazy with trying to do what should be a simple thing.
Would anyone know the code to give a message box if any cell within a range is blank?

The code I have tried is below but it doesn't work.

Private Sub CommandButton1_Click()

If ActiveSheet.Range("A2:AY2").Value = " " Then
 MsgBox "please complete all questions"
 Else
 ActiveWorkbook.Save
  Unload UserForm1
End If

End Sub

 

[Jonmo1]

Welcome to the board.

Try

If Application.CountBlank(Range("A2:AY2")) > 0 Then

 

[Chicken6]

Thanks Jonmo1,

That worked! Thanks so much!

 

[Jonmo1]

glad to help, thanks for the feedback.