Hi all,

I don't think I should be using a Worksheet function but didn't kno
how to code it.

I want to check to see if a range has a entry and if it does it clear
A1 to I5. It works if I put the formula into a cell but not as it.

Thanks for any Help

Sub Macro4()


myVal = ActiveSheet.Evaluate(sFormula)
sFormula = Selection.FormulaArray
"=IF(OR(RC[-8]:R[4]C[-2]<""""),TRUE,FALSE)"

If sFormula = True Then
Range("A1:I5").ClearContents
End If
End Sub

VBA Noo

--
VBA Noo
-----------------------------------------------------------------------
VBA Noob's Profile: http://www.excelforum.com/member.php...fo&userid=3383
View this thread: http://www.excelforum.com/showthread.php?threadid=56357