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