If you're checking to see if a range is non-empty, then you clear it, you could
just clear it without checking.

somerange.clearcontents

if you're looking a one range and if it's got something in it, then you clear a
different range:

dim rng1 as range
dim rng2 as range

if application.counta(rng1) 0 then
rng2.clearcontents
end if

===
If rng1 was a single cell:
if isempty(rng1.value) then
'it's empty
else
rng2.clearcontents
end if


VBA Noob wrote:

Hi all,

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

I want to check to see if a range has a entry and if it does it clears
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 Noob

--
VBA Noob
------------------------------------------------------------------------
VBA Noob's Profile: http://www.excelforum.com/member.php...o&userid=33833
View this thread: http://www.excelforum.com/showthread...hreadid=563576

--

Dave Peterson