Popup menu

Her er et ekstempel hvor jeg har tilføjet 3 styks til standard popup'en
Den første er fra de indbyggede komandoer (ryd alt)
De to sidste er der skrevet makroer til.
Håber du kan få noget ud af det :-)

Sub RightClickMenu()
Dim menu, NewItem, y As Long
  CmdBarsReset
  menu = Array("Row", "Column", "Cell")
  For y = 0 To 2
      Set NewItem = CommandBars(menu(y)).Controls.Add(ID:=1964)
      With NewItem
        .Caption = "Ryd &alt"
        .BeginGroup = True
      End With
      Set NewItem = CommandBars(menu(y)).Controls.Add
      With NewItem
        .Caption = "Marker til sidste"
        .OnAction = "MarkToLast"
      End With
      Set NewItem = CommandBars(menu(y)).Controls.Add
      With NewItem
        .Caption = "Gå til sidste"
        .OnAction = "ClearAllButFormulas"
      End With
  Next
 
  Set NewItem = Nothing
  Set menu = Nothing
End Sub

Sub MarkToLast()
Dim col As Long
  col = ActiveCell.Column
  Range(ActiveCell, Cells(65536, col).End(xlUp)).Select
End Sub


Sub MarkLast()
Dim col As Long
  col = ActiveCell.Column
  Cells(65536, col).End(xlUp).Select

End Sub

Der kommer fejl ved
CmdBarsReset
den opretter menu punkterne mange gange

Sorry

Sub cmdbarsreset()
CommandBars("Row").Reset
CommandBars("Column").Reset
CommandBars("Cell").Reset
End Sub

Det jeg har brug for er ikke, at tilføje til en eksisterende værktøjslinje, men en brugerdefineret.

lukker