HELP - Accidently Wiped Out CommandButtons
 

Greetings,

I was just finishing updating all 132 sheets when I accidently
overwrote my control sheet (Macros can be dangerous). I tried loading
my last save and coping that workbooks control sheet int the later
one, but when I tried to rename the new buttons with the same name as
the old (now missing) buttons, I got an ambiguous name error message.
I looked everywhere I could think of, but I could not find any if the
old buttons. If I can't find out how to fix this one page, then I
will have to repeat the last 3 hours of entry.

Anyone have any clue as to where to look to fix this problem?

TIA

-Minitman

HELP - Accidently Wiped Out CommandButtons
 

Maybe you just hid the buttons

Sub ShowButtons()
Dim oleObj as oleObject
Dim cbtn as MSForms.Commandbutton
for each oleObj in Activesheet.OleObjects
if typeof oleObj.Object is MsForms.CommandButton then
oleObj.Visible = True
set cbtn = oleObj.Object
msgbox cbtn.Name
end if
Next
End Sub

--
Regards,
Tom Ogilvy


"Minitman" wrote in message
...
Greetings,

I was just finishing updating all 132 sheets when I accidently
overwrote my control sheet (Macros can be dangerous). I tried loading
my last save and coping that workbooks control sheet int the later
one, but when I tried to rename the new buttons with the same name as
the old (now missing) buttons, I got an ambiguous name error message.
I looked everywhere I could think of, but I could not find any if the
old buttons. If I can't find out how to fix this one page, then I
will have to repeat the last 3 hours of entry.

Anyone have any clue as to where to look to fix this problem?

TIA

-Minitman