With Application.CommandBars("Cell").Controls
With .Add
.Caption = Hyp1 'Navigate to Hyperlink1
.OnAction = ThisWorkbook.Name & "!Nav_Hyp1" 'in RClick
.Tag = "Hyperlink1" 'cControlTag
.BeginGroup = True
.FaceID = iICON
End With
End With
Your code here