I always used that and find it extremely handy.
On one of my new systems I use (Win10/64; MS365/32 v2002) this seems to work when I run the special sheet but it doesn't 'stick'.
Anyone with a hint?
PS. Here's the code
Code: Select all
Sub EJ_Right_Click()
Application.CommandBars("Cell").Reset 'to reset any changes made
With Application.CommandBars("Cell").Controls.Add(msoControlButton, 3058, , 5, False)
.Caption = "Conditional Formatting..."
'.FaceId = 481
End With
'
With Application.CommandBars("Cell").Controls.Add(msoControlButton, 2034, , 5, False)
.Caption = "Validation..."
End With
End Sub