Compile error As "Wrong number of argument or argument or invalid Property assignment

hi
here i have code that give the Compile error As
"Wrong number of argument or argument or invalid Property assignment

Private Sub cmdOK_Click()
    Dim i As Long
    Dim NSname As Worksheet
    Dim Sheetname As String
   
  
    If Not ComboBox1.ListIndex = -1 Then
        Sheetname = ComboBox1.Value 'InputBox("Please enter new sheet name")
        
            Workbooks.Open Filename:= _
        "C:\Documents and Settings\g sheet\daily data\target.xls"
        Windows("Check In Data.xls").Activate
        Sheets("Today").Select
        Sheets("Today").Copy After:=Workbooks("target.xls").Sheets(Workbooks("target.xls").Sheets.Count)
        'Sheets("Today").Copy After:=Worksheets(Worksheets.Count)
        'Sheets("To Day").Copy after:=Workbooks("target.xls").Sheets(1)
        ActiveSheet.Name = Sheetname
        ActiveSheet.Unprotect Password:=""
        ActiveSheet.Range("A3").Value = Sheetname
        ActiveSheet.Range("L3").Value = Now()
        ActiveSheet.Protect Password:=""
     Workbooks.Close SaveChanges:=True  'here is the problem athere than  that it's work fine
        Unload Me
    Else
        Unload Me
        MsgBox "Pick a sheet!", 0, vbNullString
    End If
    
End Sub

actually i want to close the WB which just copy past so save the WB and close the same
can u help me pl.

You missed the workbook name:

Workbooks("Target.xls").Close SaveChanges:=True

hi romperstomper
thanks u save my day it long day
i am learning the VB
can u help me for this one it also give me headache

Sub Rectangle5_Click()
Dim wks As Worksheet
Dim wb As Workbook
    
        
        Set wks = ActiveSheet("Today")
        Set wb = Workbooks(" Data.xls")
      With wb
ThisWorkbook.Worksheets.Add.Name = "Yesterday"        
ThisWorkbook.Worksheets("Today").Range("A1:N60").Copy _
                After:=Worksheets(Worksheets.Count)
        wks.Range("A1:N60").Select
        Selection.PasteSpecial Paste:=xlPasteColumnWidths
        ActiveSheet.Paste
    End With
End Sub

here i am doing the copy past in same WB but inserting the sheet at end of all sheet

in anther ward iwant to create the new sheet name"yesterday" is the same copy of "today" sheet and create that one after the all sheet
and i have this button in "main"sheet.
thanks for any help