with Range("A1:B2")  
.ClearContents  
 .ClearNotes  
end

Скопировал Ваш вариант... не сработало...  
Как в этом случае не ссылаться два раза на диапазон?  
 
Private Sub CommandButton1_Click()  
 
anser = MsgBox("Вы уверены в том, что хотите удалить все данные с листа?", vbYesNo, "Удаление данных")  
Select Case anser  
Case vbYes  
Range("b2402:j2426").ClearContents  
Range("b2402:j2426").ClearContents  
Range("f3").Select  
Case vbNo  
End Select  
End Sub

Case vbYes  
with Range("B2402:J2426")  
.ClearContents  
.ClearNotes  
end with  
Range("f3").Select

{quote}{login=Kindness}{date=01.07.2008 04:14}{thema=}{post}Спасибо, все заработало.  
 
Теперь ситуация следующая:  
есть ячейки, защищенные от изменений, но в них можно добалять примечания...  
Необходимо чтобы при нажатии кнопки примечания удалялись с этих защищенных от изменений ячеек...  
Если писать просто Range("A1:B2").ClearNotes выдает сообщение, что ячейки защищены...  
 
Подскажите...{/post}{/quote}  
 
как вариант, сначала снимите, а после Range("A1:B2").ClearNotes верните защиту взад