Not sure why this is not working below. I simply want to copy the worksheet "Send" from an open workbook and create another separate workbook with the copy with a date identifier in the name. I am getting a Run-time error '91' on the last line "Object variable or With block variable not set" and it is creating another worksheet in my workbook (Send2) in error. Cannot figure this out. Can anyone help me? Thx.

Sub FinishSend()
    Dim ws1 As Worksheet
    Dim wb1 As Workbook
    Set ws1 = ThisWorkbook.Worksheets("Send")
    ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
    wb1.SaveAs filename:="E:\working\" & ActiveSheet.Name & Format(Date, "MMYY") & ".xlsm", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub