excel column in vba

Sub HideMenuItems()

With Application.CommandBars("Row")
.Controls("Insert").Enabled = False
.Controls("Delete").Enabled = False
End With

With Application.CommandBars("Column")
.Controls("Insert").Enabled = False
.Controls("Delete").Enabled = False
End With

With CommandBars("Worksheet Menu Bar")
.Controls("Insert").Controls("Rows").Enabled = False
.Controls("Insert").Controls("Columns").Enabled = False
.Controls("Insert").Controls("Cells").Enabled = False
.Controls("Edit").Controls("Delete").Enabled = False
End With

End Sub

http://www.functionx.com/vbaexcel/Lesson15.htm