Need Companion Code
 

I got this code and entered it - And it's great;
Only problem is I think I need the Companion
Delete code in my Workbook_Close Event.
Right now I have "Edit Existing Comment" listed 4 times
When I right-click

What would I enter in the Close event code?

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add(tempo rary:=True)
.Caption = "Edit Existing Comment"
.OnAction = "'" & ThisWorkbook.Name & "'!EditComment"
End With
End Sub

Need Companion Code
 

On Error Resume Next
Application.CommandBars("Cell").Controls("Edit Existing Comment").Delete
On error Goto 0


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"JimMay" wrote in message
news:0bWkg.41419$fG3.34630@dukeread09...
I got this code and entered it - And it's great;
Only problem is I think I need the Companion
Delete code in my Workbook_Close Event.
Right now I have "Edit Existing Comment" listed 4 times
When I right-click

What would I enter in the Close event code?

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add(tempo rary:=True)
.Caption = "Edit Existing Comment"
.OnAction = "'" & ThisWorkbook.Name & "'!EditComment"
End With
End Sub

Need Companion Code
 

Private Sub Workbook_Open()
Dim cb As CommandBarButton
On Error Resume Next
do
set cb = Application.CommandBars("Cell").Controls("Edit Existing
Comment")
if not cb is nothing then
cb.Delete
else
exit do
End if
Loop
On Error goto 0
With Application.CommandBars("Cell").Controls.Add(tempo rary:=True)
.Caption = "Edit Existing Comment"
.OnAction = "'" & ThisWorkbook.Name & "'!EditComment"
End With
End Sub


--
Regards,
Tom Ogilvy


"JimMay" wrote in message
news:0bWkg.41419$fG3.34630@dukeread09...
I got this code and entered it - And it's great;
Only problem is I think I need the Companion
Delete code in my Workbook_Close Event.
Right now I have "Edit Existing Comment" listed 4 times
When I right-click

What would I enter in the Close event code?

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add(tempo rary:=True)
.Caption = "Edit Existing Comment"
.OnAction = "'" & ThisWorkbook.Name & "'!EditComment"
End With
End Sub

Need Companion Code
 

Thanks Tom and Bob;
I'm fixed. LOL


"Bob Phillips" wrote in message
:

On Error Resume Next
Application.CommandBars("Cell").Controls("Edit Existing Comment").Delete
On error Goto 0


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"JimMay" wrote in message
news:0bWkg.41419$fG3.34630@dukeread09...

I got this code and entered it - And it's great;
Only problem is I think I need the Companion
Delete code in my Workbook_Close Event.
Right now I have "Edit Existing Comment" listed 4 times
When I right-click

What would I enter in the Close event code?

Private Sub Workbook_Open()
With Application.CommandBars("Cell").Controls.Add(tempo rary:=True)
.Caption = "Edit Existing Comment"
.OnAction = "'" & ThisWorkbook.Name & "'!EditComment"
End With
End Sub