Copy sheet to chosen workbook

[femma]

Hi forum!

Trying to copy the active sheet to the workbook chosen by the user - but having trouble with how to define the new workbook.

 Sub ssss()
 Dim myfile As Variant
 


    Application.DisplayAlerts = False
    Application.CopyObjectsWithCells = False
    ActiveSheet.Copy
     
    With ActiveSheet.UsedRange
        .Value = .Value
         
    End With
myfile = Application.GetOpenFilename

    If myfile <> False Then
    Workbooks.Open Filename:=myfile
   
   
'this part does not work -should copy the chosen file to the workbook chosen by the user
    End If
    
    Application.CopyObjectsWithCells = True
    Application.DisplayAlerts = True
    
End Sub

 

[AlphaFrog]

 [color=darkblue]Sub[/color] ssss()
    
    [color=darkblue]Dim[/color] myfile [color=darkblue]As[/color] [color=darkblue]Variant[/color], ws [color=darkblue]As[/color] Worksheet
    
    myfile = Application.GetOpenFilename
    
    [color=darkblue]If[/color] myfile <> [color=darkblue]False[/color] [color=darkblue]Then[/color]
        
        Application.DisplayAlerts = [color=darkblue]False[/color]
        Application.CopyObjectsWithCells = [color=darkblue]False[/color]
        
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        [color=darkblue]Set[/color] ws = ActiveSheet
        
        [color=darkblue]With[/color] ws.UsedRange
            .Value = .Value
        [color=darkblue]End[/color] [color=darkblue]With[/color]
        
        Workbooks.Open Filename:=myfile
        
        ws.Copy After:=Sheets(Sheets.Count)
        
        ws.Delete
        
        Application.CopyObjectsWithCells = [color=darkblue]True[/color]
        Application.DisplayAlerts = [color=darkblue]True[/color]
        
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[femma]

Thank you so much