LinkBack URL
About LinkBacks
try this change
End With ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=myPath & _ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4), FileFormat:=xlNormal ActiveWorkbook.Close
try this change
End With ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=myPath & _ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4), FileFormat:=xlNormal ActiveWorkbook.Close
If solved remember to mark Thread as solved
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks