Copy only active sheet 1 and paste into other workbook after or before n sheets

Hi All,

Kindly help me out i m trying to copythe active sheet in source workbook and poaste it into another book after or before available sheets.
i have used the code but getting the error "run time error 9 subscript out of range."
this is the code

Sub CopySheetToOtherWbk()
Dim CopyFromBook As Workbook
Dim CopyToWbk As Workbook
Dim ShToCopy As Worksheet

Set CopyFromBook = Workbooks("Invoice.xlsm")
Set ShToCopy = CopyFromBook.Worksheets("Invoice")

Set CopyToWbk = Workbooks("D:\Invo\test.xlsx")
'
ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count)
End Sub

Did you open the target workbook?
both workbooks must be open.

thanks it worked
i missed the open. command
can u tell me how to rename it automatically when it copy to the file from particular cell value

ok.
no target workbook is closed only.
thanks for ur quick reply

In the same sheet