You can use this Howard

If Application.WorksheetFunction.CountIf _
(Range("A4:D4"), "Due") 0 Then

Or

If Range("A4").Text = "Due" Or _
Range("B4").Text = "Due" Or _
Range("C4").Text = "Due" Or _
Range("D4").Text = "Due" Then


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Howard" wrote in message ...
If I want to insert an OR statement in this sub, how would I do it? IF Range("a4 or b4 or c4 or d4").Text = "Due" then...

Sub Balance()
With Range("g1")
IF Range("c4").Text = "Due" Then
.Cells.Formula = "=sum(a2,f3)"
Else
.Cells.Formula = 0
End If
End With
End Sub

Thanks,
Howard