if then vba

[tegger]

What's the correct syntax for this (in vba)?
Sub testifthen()
if cells(1,1).value = "x" and if cells(2,1).value = "y" and if
cells(3,1).value = "z" then cells(4,1).value = "dinner's in the fridge"

End Sub

 

[Ron de Bruin]

Try this

If Cells(1, 1).Value = "x" And Cells(2, 1).Value = "y" _
And Cells(3, 1).Value = "z" Then Cells(4, 1).Value = "dinner's in the fridge"