Dear Experts,
The below code works fine when run from the worksheet object.
Code
Private Sub Worksheet_Activate()
Dim movRange As Range
Dim PasteLoc As Range
Dim lastCell As Range
Set movRange = Sheets("CALC").Range("A542:BC956")
Set PasteLoc = ActiveSheet.Range("A542:BC956")
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
movRange.Copy Destination:=PasteLoc
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
End SubHow ever when I run it from a userform option button
Code
Private Sub OptionButton1_Click()
'INTO MANUAL MODE
Application.EnableEvents = False
Dim ws As Worksheet
Dim movRange As Range
Dim PasteLoc As Range
Dim lastCell As Range
Set ws = ActiveSheet
Set movRange = Sheets("CALC").Range("A542:BC956")
Set PasteLoc = ActiveSheet.Range("A542:BC956")
'Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
movRange.Copy Destination:=PasteLoc
ws.PageSetup.PrintArea = ws.Range(Cells(1, 1), lastCell).Address
Unload UserForm1
End SubI get the subject error.
The debugger highlights the following line
Code
ws.PageSetup.PrintArea = ws.Range(Cells(1, 1), lastCell).AddressAny Ideas?