View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Dave D[_3_] Dave D[_3_] is offline
external usenet poster
 
Posts: 6
Default macro in 2003 template asks for non-existent XLS

Hi Greg,

Thanks for the input. It did the trick! I'm using menus,
though, so solution was slightly different... Locate menu
on active menubar, then loop through controls to assign
macros.

When I read your message, I finally looked closely at the
macro assignment box in Tools/Customize for my menu items,
and saw that they now contained a reference to that
missing spreadsheet as the source location for the macro.
I'm still puzzled as to how that happened, i.e., why the
XLT was updated when I was working in the generated XLS.
But, regardless, your solution works beautifully! Thanks
again.

Dave D
-----Original Message-----
Hi Dave,

I assume you are using a toolbar to run the macros. If

so, you should
assign/unassign the macros to the buttons when the

workbook is opened.

Sub Auto_open()
Toolbars("LogForm").Visible = True
Toolbars("LogForm").ToolbarButtons(1).OnAction

= "PhoneLogger"
Toolbars("LogForm").ToolbarButtons(2).OnAction

= "LateLogger"
End Sub
Sub Auto_close()
On Error Resume Next
Toolbars("LogForm").ToolbarButtons(1).OnAction = ""
Toolbars("LogForm").ToolbarButtons(2).OnAction = ""
Toolbars("LogForm").Visible = False

Toolbars("LogForm").Delete
On Error GoTo 0
End Sub

HTH, Greg

"Dave D" wrote in

message
...
Hi all:

Created a template in 2003 with a medium sized set of
macros. Call it "work.xlt".

Saved it, doubleclicked to open new "work1.xls".

Noticed
a couple of problems, closed work1.xls without saving.

Opened work.xlt, made my changes, started to test, and
now all macros seem to want to open "work1.xls".
Simplest are some "goto sheet" macros, just select sheet
then select cell. When you run any of these macros, a
message box appears that "work1.xls cannot be found".

even tried saving under another name as play.xlt
template, but macros still ask for work1.xls.

Any suggestions? Thanks for your help



.