If I understand you correctly then perhaps something like this......


Code
-------------------

Sub AsAdsAds()
DisableMoveCopy True
End Sub

Sub DisableMoveCopy(blnState As Boolean)
Dim Combar As CommandBar
Dim ComBarCtrl As CommandBarControl

On Error Resume Next
For Each Combar In Application.CommandBars
Set ComBarCtrl = Combar.FindControl(ID:=848, recursive:=True)
If Not ComBarCtrl Is Nothing Then
ComBarCtrl.Enabled = blnState
End If
Next
Set ComBarCtrl = Nothing
End Sub

-------------------


Don't forget to reset after use as this setting will remain

--
Ivan F Moal

-----------------------------------------------------------------------
Ivan F Moala's Profile: http://www.excelforum.com/member.php...nfo&userid=195
View this thread: http://www.excelforum.com/showthread.php?threadid=51684