Multi Cell Check

[kipper2]

I need to run a sub in VBA to check that four cell have a value greater than 0. And then if the answer is yes of no to complete the correct task. have used the following which will work for 1 cell but not 2.

Sub OUR_PRICE(Value)
If Range("F47").Value > 0 Then
If Range("F49").Value > 0 Then
Application.Run "Slip_number"
Else
Application.Run "OUR_ERROR"
End If
End Sub

[romperstomper]

Duplicate, so closed.