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

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

.

Hans

That's one way to solve the problem. The other is to use ActiveWorkbook
instead of ThisWorkbook. ThisWorkbook always refers to the workbook in
which the code resides. You could store this procedure in Personal.xls if
you used

ActiveWorkbook.FullName

instead.

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com

"Hans" wrote in message
...
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

.