Anzahl der Werte im Kontextmenue aendern

Hallo VB-Experten,

habe folgenden Syntax:


If Not Intersect(Target, Range("A2:A64")) Is Nothing Then
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="A,B,C,D,E,F,G,H,J,K,L"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If


Es wird ein Kontextmenü mit der Auswahl A bis L angezeigt. Gibt es die möglichkeit die Scrollleiste zu deaktivieren oder anders gibt es ein Möglichkeit das komplette Kontextmenü anzeigen zu lassen? Momentan wird nur beim Klick in das Excelfeld A bis H angezeigt!

Dank Euch

Alex