Habilitar la opcion unhide con el boton derecho del raton

Buenas tardes,

Navegando por la red encontré el siguiente código, el cual elimina la opción de unhide en excel, el problema es que yo puedo lograr que me aparezca, de antemano agradezco su ayuda.

cabe mencionar que he intentado lo siguiente pero no funciona.

cbControl.Delete.Reset

'Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

' Dim cb As CommandBar, cbControl As CommandBarControl, cbButton As CommandBarButton

' Set cb = Application.CommandBars("Column")

' For Each cbControl In cb.Controls

' If cbControl.Caption = "&Unhide" Then

' cbControl.Delete

' End If

' Next

'End Sub