Sub test()

'Copy "Term" data to new workbook
HireBk = "New Hire" & "(" & Site & " " & Last_Name & ", " & First_Name & _
" " & Hire_Date & ""
TermBk = "Term" & Site & Last_Name & First_Name & ".xls"

With Workbooks(HireBk).Sheets("Term Form") _
.Range("A1:z100").Copy
End With

With Workbooks(TermBk).Sheets("Sheet1")

.Range("a1").PasteSpecial _
Paste:=xlPasteColumnWidths, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
.Range("a1").PasteSpecial _
Paste:=xlPasteAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End With
Workbooks(TermBk).Save

End Sub





"Neecy" wrote:

Hello-
I am having a debug error that comes up from the script listed below:

' Copy "Term" data to new workbook
Windows("New Hire" & "(" & Site & " " & Last_Name & ", " & First_Name &
" " & Hire_Date & ")" & ".xls").Activate
Sheets("Term Form").Activate
Range("A1:z100").Select
Selection.Copy
Range("a1").Select
Windows("Term" & Site & Last_Name & First_Name & ".xls").Activate
Sheets("Sheet1").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select


Application.CutCopyMode = False

ActiveWorkbook.Save

End Sub


This script is to write the selected details over to a new workbook on a new
worksheet. The error appears from the 1st line of the windows statement.
Could someone review and tell me when I am going wrong?

Thanks-

Neecy