The following code was written with the intent to:
1) make a copy of the active workbook, name it "PAPenguins"
2) unmap a network drive
3) delete the file "PAPenguins"
It is not working. Can someone please help!!!
Dim SaveCode
SaveCode = "V:\" & Range("g7") & "\" & Range("b4") & " wit
Comments.xls"
ActiveWorkbook.SaveAs Filename:=SaveCode, FileFormat _
:=xlNormal, password:="", WriteResPassword:=""
ReadOnlyRecommended _
:=False, CreateBackup:=False
Dim wb As Workbook
Set wb = ActiveWorkbook
With wb
.SaveAs "PAPenguins.xls"
Call Unmap
x = .FullName
.Close False
Kill x
End With
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "PAPenguins.xls"
x = .FullName
.Close False
Kill x
End Wit
--
Message posted from
http://www.ExcelForum.com