I am trying to set up a macro which would only run if there is a value in
any of the three cells to the left of active cell. The following does not
seem to work and would appreciate any help in correcting this:

If ActiveCell.FormulaR1C1 = "(SUM(RC[-3]:RC[-1])<>0" Then
run macro code
End If

JP

Try

If Application.Counta(Activecell.Offset(0, -3).Resize(, 3)) > 0 Then

run macro code
End If

--

HTH

Bob

"JP" <(E-Mail Removed)> wrote in message
news19033E5-F23A-4C11-B87E-(E-Mail Removed)...
>I am trying to set up a macro which would only run if there is a value in
> any of the three cells to the left of active cell. The following does not
> seem to work and would appreciate any help in correcting this:
>
> If ActiveCell.FormulaR1C1 = "(SUM(RC[-3]:RC[-1])<>0" Then
> run macro code
> End If
>
> JP
>