ReferenceStyle:=xlR1C1
Hi TWIMC
I want to set a Range object to the xlR1C1Address of the print area of the active sheet Dim rge as Range Set rge = ActiveSheet.PageSetup.PrintArea The problem is that the return of ActiveSheet.PageSetup.PrintArea is a string and not an address object. Therefore can someone tell me how I can set rge to print area by converting the string into an address range? TIA KM |
ReferenceStyle:=xlR1C1
Kevin,
Try this: Private Sub CommandButton1_Click() Dim r As Range With ActiveSheet Set r = .Range(.PageSetup.PrintArea) End With 'r.Select End Sub NickHK "Kevin McCartney" wrote in message ... Hi TWIMC I want to set a Range object to the xlR1C1Address of the print area of the active sheet Dim rge as Range Set rge = ActiveSheet.PageSetup.PrintArea The problem is that the return of ActiveSheet.PageSetup.PrintArea is a string and not an address object. Therefore can someone tell me how I can set rge to print area by converting the string into an address range? TIA KM |
All times are GMT +1. The time now is 01:14 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com