I need to use something like this in my code:
Activesheet.PageSetup.PrintArea = "$A$1:$C$5"

but I need to substitute the address range above to or as follows:

Where I already have a variable "Lrow" = 7122

I wish to print the area:

A7082 (<< this # set to Lrow minus 40) : H7122

I can't get syntax to work - I've tried:

PrtRng = Range("A & LRow - 45 & ":I" & LRow) << Not being accepted

Tks in Advance for helping,,

Looks like you may be missing a quotation mark. Try...
PrtRng = Range("A" & LRow - 45 & ":I" & LRow)
'not tested.
HTH,
Gary Brown


"Jim May" wrote in message news:mr03d.12$GU2.1@lakeread06...
I need to use something like this in my code:
Activesheet.PageSetup.PrintArea = "$A$1:$C$5"

but I need to substitute the address range above to or as follows:

Where I already have a variable "Lrow" = 7122

I wish to print the area:

A7082 (<< this # set to Lrow minus 40) : H7122

I can't get syntax to work - I've tried:

PrtRng = Range("A & LRow - 45 & ":I" & LRow) << Not being accepted

Tks in Advance for helping,,

PrintArea is looking for a string.

You are missing a double quote in your concatenation. should be:

? "A" & LRow - 45 & ":I" & LRow
A7077:I7122


then
Dim prtRng as String

prtRng = Range( "A" & LRow - 45 & ":I" & LRow).Address(external:=True)

Activesheet.PageSetup.PrintArea = prtRng

Change 45 to 40 if you actually want 7082

--
Regards,
Tom Ogilvy


"Jim May" wrote in message news:mr03d.12$GU2.1@lakeread06...
I need to use something like this in my code:
Activesheet.PageSetup.PrintArea = "$A$1:$C$5"

but I need to substitute the address range above to or as follows:

Where I already have a variable "Lrow" = 7122

I wish to print the area:

A7082 (<< this # set to Lrow minus 40) : H7122

I can't get syntax to work - I've tried:

PrtRng = Range("A & LRow - 45 & ":I" & LRow) << Not being accepted

Tks in Advance for helping,,