copy sheet to external not opened file - vba

[lezawang]

Hi
I am trying to copy a sheet to an external file (not opened). The code below did not work. Any help would be appreciated. Thank you. If that possible, can I also decided where to put the sheet (i.e. before the last one, after the first one etc)

Sub copytoexternal()
    Dim x As Workbook
    Dim y As String
    y = InputBox("file path and name")
    Set x = Application.Workbooks.Open(y)
    ThisWorkbook.ActiveSheet.Copy Destination:=x.Worksheets
End Sub

 

[lezawang]

Sorry just ignore my post. I found the error. Thank you

ThisWorkbook.ActiveSheet.Copy before:=x.Sheets(1)