Macro on Hidden spreadsheet

[geocoy]

I am trying to copy a macro in Excell spreadsheet from one pc to another.
The maco is set to launch when you open an XML file. Trouble is, when I try
to open the XML file. Excel opens and existing hidden file called
PERSONAL.XLS. It has its own macro and it blocks my macro from finishing. I
tried to edit PERSONAL and delete it, but it will not allow me saying it is
a hidden file. I have to unhide it to edit it, trouble is I can not find it.
I tried Saveas to see where it would take me, and it points to Excelstart.
In windows explorer I set this folder to allow viewing hidden files, but I
can not see it.

Any ideas
Sub Trace()
'
' Trace Macro
' Macro recorded 6/8/2007 by DTS402
'

'
Range("AJ3:AM3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Columns("B:C").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("B:C").EntireColumn.AutoFit
Range("A1").Select
Selection.AutoFilter
Range("A1:B1").Select
Range("A1:B930").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet3").Select
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Range("C1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=""*""&RC[-2]&""*"""
Range("C1").Select
Selection.Copy
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
ActiveWindow.SmallScroll Down:=6
Range("C1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
With Selection.Font
.Name = "Free 3 of 9"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Font
.Name = "Free 3 of 9"
.Size = 24
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("C:C").EntireColumn.AutoFit
Range("B1:C1").Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

 

[Billy Rogers]

C:\Documents and Settings\user name\Application Data\Microsoft\Excel\XLSTART
In Vista look here
C:\Users\user name\AppData\Roaming\Microsoft\Excel\XLSTART
--
Billy Rogers

Dallas,TX

Currently Using SQL Server 2000, Office 2000 and Office 2003

http://thedataguru.blogspot.com/