Hi,

I am using the following to clear a range of cells but it dosen't
work please help

With
Workbooks("testcalcs_rev3.xls").Worksheets("initia l_information")
trm =
Workbooks("TestCalcs_rev3.xls").Names("Issue_term" ).RefersToRange.Value
If trm = 20 Then
Columns("C:L").Rows("70:89").ClearContents
End If
End With

I can run the clearcontents by itself and it works fine but i need to
be able to compare it to a value, hence the cell issue_term. if it
equals 20 then i need to delete the cells listed if not it needs to
just exit.

thanks for your time
joeH


--
JoeH
------------------------------------------------------------------------
JoeH's Profile: http://www.excelforum.com/member.php...o&userid=14138
View this thread: http://www.excelforum.com/showthread...hreadid=263686