Here is a simple way to disable the Cut & Copy in the Popup menu
Sub Disable_Buttons() Dim oC1 As CommandBarSet oC1 = Application.CommandBars("CELL") oC1.Controls("Cu&t").Enabled = FalseoC1.Controls("&Copy").Enabled = FalseEnd SubOther menu items can also be handled similarly
To disable the Insert & Delete in the Popup menu
oC1.Controls("&Insert...").Enabled = FalseoC1.Controls("&Delete...").Enabled = False