Sayfayı Temizleme Makrosu Kenarlıkları Silmesin

[leylabalse]

Merhaba, tıkladığım anda A3 hücresinden itibaren tüm sayfayı temizleyen bir kodum var. İşimi görüyor fakat tıkladığımda kenarlıkların silinmesini istemiyorum.

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete

İşimi görüyor. Sadece hücre kenarlıklarının silinmesini istemiyorum.

Teşekkürler.

 

[Greenblacksea53]

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).ClearContents

 

[leylabalse]

Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).ClearContents

Çok teşekkür ederim