что-то не клеится...  
пока у меня так (нашел в чужом коде)  
 
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)  
If ActiveSheet.Name <> Sh1 Then 'если не на том листе - выходим  
Exit Sub  
End If  
End Sub  
и как тут приклиеть selection.interior.colodindex=44 'красим?

{quote}{login=sva}{date=25.02.2011 08:24}{thema=}{post}Что конкретно не клеится?  
Код в нужный лист  
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
Selection.Interior.ColorIndex = False  
End Sub  
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)  
Selection.Interior.ColorIndex = 44  
End Sub{/post}{/quote}  
 
да, если в лист - работает! но при этом выскакивает диалоговое окно (вырезать, копировать, вставить и т.д.) это можно побороть?

{quote}{login=sva}{date=25.02.2011 08:37}{thema=}{post}Вам не нужно контекстное меню?  
Может лучше красить по клику левой кнопкой?{/post}{/quote}  
 
Один из вариантов!    
но, когда Sub Worksheet_BeforeDoubleClick() - входит в ячейку, а мне это не надо  
 
У меня есть чудо-календарь, там нет ни контекстного меню, ни входа в ячейку. Если есть время - посмотрите, не хватает у меня знаний =))

О! как все просто =))  
спасибо!