Hi Parteegolfer,

Try:

'=============
Public Sub Tester002()
Dim rng As Range

Set rng = Range("A7", Cells.SpecialCells(xlCellTypeLastCell))

rng.Clear

End Sub
'<<=============


---
Regards,
Norman



"parteegolfer"
wrote in message
news:parteegolfer.25meha_1143953401.0004@excelforu m-nospam.com...

I am looking to clear a work sheet From A7 down. Including borders etc.
How would I accomplish this?


--
parteegolfer
------------------------------------------------------------------------
parteegolfer's Profile:
http://www.excelforum.com/member.php...o&userid=31951
View this thread: http://www.excelforum.com/showthread...hreadid=528942