Results 1 to 5 of 5
  1. #1
    5 Star Lounger Lou Sander's Avatar
    Join Date
    Jun 2002
    Location
    Pittsburgh, PA
    Posts
    855
    Thanks
    140
    Thanked 10 Times in 9 Posts
    Somehow Excel thinks PERSONAL.XLS is on my desktop, not in my XLSTART folder.

    I have many macros in PERSONAL.XLS, which seems to be in its proper place in the XLSTART folder. I can access the macros from Tools > Macro > Macros, and can run them, edit them, etc.

    I have a customized toolbar with a handful of icons that formerly executed these macros without any problems. But now when I click one of these icons, I get a message that says the macro can't be found. It cites my Desktop as the place it thinks PERSONAL.XLS is located.

    How can I fix this?
    Lou Sander
    Pittsburgh, Pennsylvania
    USA

  2. #2
    3 Star Lounger
    Join Date
    Nov 2002
    Location
    New York, New York, USA
    Posts
    266
    Thanks
    0
    Thanked 19 Times in 19 Posts
    Some quick suggestions.

    When Excel Opens on the Menu select Windows - Unhide to see if you personal.xls file is attached, from what you are saying it should not be there.

    Next make sure the xlstart folder is under C:\Program Files\Microsoft Office\OFFICE11\

    Make sure that Personal.xls is in that folder. If its under a different path Excel will not find it.

    Make sure that your macro's are all contained in the Modules under Personal.xls workbook.

    Lastly, check you Macro Security Settings, If they are on high it may be causing the trouble.

    Regards,

    Tom Duthie

  3. #3
    WS Lounge VIP rory's Avatar
    Join Date
    Dec 2000
    Location
    Burwash, East Sussex, United Kingdom
    Posts
    6,280
    Thanks
    3
    Thanked 191 Times in 177 Posts
    If there are only a few buttons, I'd simply reassign the macros one by one. Otherwise, you'll need code - something like this (change the old and new paths as required):
    [pre]

    Sub LoopBars()
    Dim cbr As CommandBar, ctl As CommandBarControl
    For Each cbr In Application.CommandBars
    ' Set cbr = Application.CommandBars("Standard")
    If cbr.Visible Then
    For Each ctl In cbr.Controls
    If Not ctl.BuiltIn Then
    ResetControls ctl, "T:\XLSTART\Personal.xls", "H:\XLSTART\Personal.xls"
    End If
    Next ctl
    End If
    Next cbr
    End Sub
    Sub ResetControls(ctlIn As CommandBarControl, strOldPath As String, strNewPath As String)
    Dim ctl As CommandBarControl, lngCount As Long
    On Error Resume Next
    lngCount = ctlIn.Controls.Count
    If lngCount > 0 Then
    For Each ctl In ctlIn.Controls
    ResetControls ctl, strOldPath, strNewPath
    Next ctl
    Else
    With ctlIn
    If Len(.OnAction) > 0 Then
    .OnAction = Replace$(.OnAction, strOldPath, strNewPath, , , vbTextCompare)
    Debug.Print .OnAction
    End If
    End With
    End If
    End Sub
    [/pre]
    Regards,
    Rory

    Microsoft MVP - Excel

  4. #4
    5 Star Lounger Lou Sander's Avatar
    Join Date
    Jun 2002
    Location
    Pittsburgh, PA
    Posts
    855
    Thanks
    140
    Thanked 10 Times in 9 Posts
    Thanks, fellows!

    There were fewer buttons than I had thought -- only four or five. I just reassigned them.

    I don't know how they got out of whack, but it happened once before, many months ago.
    Lou Sander
    Pittsburgh, Pennsylvania
    USA

  5. #5
    New Lounger
    Join Date
    Dec 2009
    Location
    San Diego
    Posts
    16
    Thanks
    0
    Thanked 0 Times in 0 Posts
    My PERSONAL.XLS has always been saved here:
    C:\Documents and Settings\<username>\Application Data\Microsoft\Excel\XLSTART

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •