Saladsamurai
10-29-2009, 05:45 AM
I am currently using a code that looks like
Sub CopySheet()
Dim InstallDir As String
InstallDir = "Z:\temp\CaseyTemp\Test\"
Workbooks.Open (InstallDir & "TestCopySheet.xls")
With Workbooks("CopySheet.xls")
Sheets(1).Copy Before:=Workbooks("TestCopySheet.xls").Sheets(1)
End With
' Workbooks("TestCopySheet.xls").Save
' Workbooks("TestCopySheet.xls").Close
End Sub
Is there a way to add in a new name to the copy being sent to "TestCopySheet.xls" ?
Sub CopySheet()
Dim InstallDir As String
InstallDir = "Z:\temp\CaseyTemp\Test\"
Workbooks.Open (InstallDir & "TestCopySheet.xls")
With Workbooks("CopySheet.xls")
Sheets(1).Copy Before:=Workbooks("TestCopySheet.xls").Sheets(1)
End With
' Workbooks("TestCopySheet.xls").Save
' Workbooks("TestCopySheet.xls").Close
End Sub
Is there a way to add in a new name to the copy being sent to "TestCopySheet.xls" ?