Copy Worksheet To New Workbook & Save

I have a workbook with a worksheet named "Report"... this sheet and it's macros generate a report from data on another sheet...

I'm adding a button to copy the (filled) Report sheet to a new workbook, rename the new sheet in the new workbook "Rep[Name]", then save and close the new workbook...

I've recorded a maco of me doing these tasks manually, but what's recorded seems very generic, and does not seem to specify what's really occurring...
For example (in part);
> Rightclick on the Report tab
> Move or Copy
> To Book: (new book)
> [x]Create a Copy
> [OK]

yields:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/17/2006 by Bryan
'
    Sheets("Report").Select
    Sheets("Report").Copy
End Sub

This recorded macro does not specify (new book), or Before:"Sheet1" as was the result of my actions... and when replayed back, only makes a copy in the active workbook, before the active sheet...

Please offer suggestions as to what the copy code should look like, as the recorder macro clearly is not it...

TiA,

Re: Copy Worksheet To New Workbook & Save

When a new workbook is created via .Copy, is the focus changed to that new workbook?, or does the new workbook then have to be .Selected?...
If the latter, how do you refer to this new workbook of an unknown name?

Re: Copy Worksheet To New Workbook & Save

Thanks for the input...
It's now working just fine, with the following code;

'Save Report
    If CheckBox2 = True Then
    
        Dim DstFile As String 'Destination File Name
    
        Dim RN As String 'Rep Name
        RN = Range("A2").Value
    
        Dim FD As String 'From date
        FD = Range("J1").Value
    
        Dim TD As String 'To date
        TD = Range("J2").Value
        
        Unload UserForm1
        
        'Copy worksheet
        Application.ScreenUpdating = False
        Dim wb As Workbook
        Dim NewShtName As String
        NewShtName = "Report for " & RN
        
        Sheets("Reports").Copy
        Set wb = ActiveWorkbook
        wb.Sheets("Reports").Name = NewShtName
        
        'Prompt for SaveAs name
        DstFile = Application.GetSaveAsFilename _
        (InitialFileName:=RN & "report" & FD & "to" & TD & ".xls", _
        Title:="Save As")
        If DstFile = "False" Then
            MsgBox "File not Saved, Actions Cancelled."
            Exit Sub
        Else
            wb.SaveAs DstFile 'Save file
            wb.Close 'Close file
        End If
        Workbooks("Job Log.xls").Activate
        MsgBox ("File Saved")
        Application.ScreenUpdating = True
    End If