Originally Posted by Dave Peterson

Watch out for formulas!

mikerickson wrote:

This works for me.
Code:
--------------------
Dim pValues As Variant
With ActiveSheet
pValues = .Range(.PageSetup.PrintArea).Value
.Cells.ClearContents
.Range(.PageSetup.PrintArea).Value = pValues
End With
--------------------
er;513921 Wrote:
hallo,
how can erase the empty cells, outside print area?

--
mikerickson

--

Dave Peterson