saving file as personal.xls
Sorry for my previous email - problem solved. I shouldnt
have saved this macro in the PERSONAL.XLS macro file, but
only in the individual spreadsheet!
-----Original Message-----
I have the following macro that saves the active workbook
(without the extension .xls) in the same directory
with "For Reporting" attached to its name:
Sub SaveAsReporting2()
Dim stOldName As String
Dim stNewName As String
Dim stPartName As String
stOldName = ThisWorkbook.FullName
stPartName = Left(stOldName, Len(stOldName) - 4)
stNewName = stPartName & " For Reporting"
ActiveWorkbook.SaveAs stNewName
End Sub
However, something have must gone wrong with the personal
file, because when I run this macro, the "PERSONAL.XLS"
file (in the Microsoft/Excel/Startup directory on my C:
drive) is saved with "For Reporting" attached its name
and
not the active workbook....
What did I do and how can I solve this problem????
Hans
.
|