R
Rebecca_SUNY
In VBE in the property window of a worksheet there is a field (Name) that
doesn't change even if the tab name or index position changes. I would like
to use this "name" and evaluate it to reset the print range. I only want to
reset the print range of Sheets "Sheet11" to "Sheet31". When I use the
ActiveSheet.Name command I only get the "tab" name, not this static name. Is
there any way to retrieve the (Name) and evaluate it. Here is the piece of
code that I am working with.
Dim SheetNum_Low As Integer
Dim SheetNum_High As Integer
Dim ws As Worksheet
Dim SheetNum As Integer
SheetNum_Low = 11
SheetNum_High = 31
For Each ws In Worksheets
ws.Activate
SheetNum = ActiveSheet.Index
SheetNum = val(left(ActiveSheet.Name,2))
If SheetNum >= SheetNum_Low And SheetNum <= SheetNum_High Then
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End If
Next
doesn't change even if the tab name or index position changes. I would like
to use this "name" and evaluate it to reset the print range. I only want to
reset the print range of Sheets "Sheet11" to "Sheet31". When I use the
ActiveSheet.Name command I only get the "tab" name, not this static name. Is
there any way to retrieve the (Name) and evaluate it. Here is the piece of
code that I am working with.
Dim SheetNum_Low As Integer
Dim SheetNum_High As Integer
Dim ws As Worksheet
Dim SheetNum As Integer
SheetNum_Low = 11
SheetNum_High = 31
For Each ws In Worksheets
ws.Activate
SheetNum = ActiveSheet.Index
SheetNum = val(left(ActiveSheet.Name,2))
If SheetNum >= SheetNum_Low And SheetNum <= SheetNum_High Then
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End If
Next