Copy PrintArea cells only

[thomsons]

Hi,

I'm trying to select the cells that have been setup in PrintArea to allow me to copy that range of cells only.

I'm able to get the PrintArea address but only as a string using the following code:-

Dim strPrintArea As String

strPrintArea = ActiveSheet.PageSetup.PrintArea

The output I get back is $AB$1:$A0$26

How can I use the data in this string to return and select a range.

Cheers,
ST

 

[Loomah]

The print area is a named range (I think, though it isn't unique to a book just a sheet) and can be selected as such ie

Sub plot()
ActiveSheet.Range("Print_Area").Select
End Sub

& RYMB

;-) If a man says something and there are no women there to hear him, is he still wrong?