philfer
01-25-2008, 12:47 PM
Hello,
I tried the following code
Dim rng as String
With ActiveSheet
rng = .Range("A1", ActiveCell.SpecialCells(xlLastCell)).Address)
.PrintArea = rng
End With
I get the following error
Object not support this property or method
Can anyone help
I tried the following code
Dim rng as String
With ActiveSheet
rng = .Range("A1", ActiveCell.SpecialCells(xlLastCell)).Address)
.PrintArea = rng
End With
I get the following error
Object not support this property or method
Can anyone help