T
Tony Bender
I have an application where a user can click on a specifc cell and it
pops up a TextBox with a definition. The user can then close the
textbox by clicking on it. Under the VBA Project window these macros
reside on the Sheet2(Report) under Microsoft Excel Objects, not under
Modules folder.
My dilema is when I save the sheet, and save it under a new workbook;
the macro to open the TextBox works, but the macro to close it does
not. It can't find the original macro.
Is there a way to fix this so it will close like it does in the
'master' workbook? If so what is the code?
Here are the macros:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'displays definition with a live example
If ActiveCell.Address = "$B$3" Then
Cancel = True
With ActiveSheet
.Shapes("Group1").Visible = True
End With
ElseIf ActiveCell.Address = "$J$3" Then
Cancel = True
With ActiveSheet
.Shapes("Group4").Visible = True
End With
End If
End Sub
*************
'Closes the TextBox when the user clicks on it
Sub CloseTB1()
With ActiveSheet
.Shapes("Group1").Visible = False
End With
End Sub
I appreciate any help you can provide.
Thank you,
pops up a TextBox with a definition. The user can then close the
textbox by clicking on it. Under the VBA Project window these macros
reside on the Sheet2(Report) under Microsoft Excel Objects, not under
Modules folder.
My dilema is when I save the sheet, and save it under a new workbook;
the macro to open the TextBox works, but the macro to close it does
not. It can't find the original macro.
Is there a way to fix this so it will close like it does in the
'master' workbook? If so what is the code?
Here are the macros:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'displays definition with a live example
If ActiveCell.Address = "$B$3" Then
Cancel = True
With ActiveSheet
.Shapes("Group1").Visible = True
End With
ElseIf ActiveCell.Address = "$J$3" Then
Cancel = True
With ActiveSheet
.Shapes("Group4").Visible = True
End With
End If
End Sub
*************
'Closes the TextBox when the user clicks on it
Sub CloseTB1()
With ActiveSheet
.Shapes("Group1").Visible = False
End With
End Sub
I appreciate any help you can provide.
Thank you,