VBA move active sheet to new workbook

[rplohocky]

Hello,
I'm looking for some VBA that will move active sheet to a new workbook and then set a variable print area. The print area always starts at A12 over to H12 but the rows will always be different. I need it to look for the last used row and set the print area.

Thank you!

 

[ranman256]

activesheet.Select
activesheet.Move

dim r
Range("A12").Select
Selection.End(xlDown).Select
r = ActiveCell.Row
ActiveSheet.PageSetup.PrintArea = "$A$12:$H$" & r

 

[rplohocky]

ranman256, This works perfectly!!! Thank You