Sayfa1 , Sayfa2 yazılarını kolonlara nasıl otomatik atabilirim

[siveda]

Sevgili arkadaşlar Excell dosyası uzerındeyden sayfa1 yazısını degıstırıp yerine Nakliyat yazdım diyelim. Bu nakliyat isminide değiştirdiğimde otomatık olark kolonların ıcerısndede degısmsını nasıl yapabılırım.?

yardımlarınız ıcın cok tesekkurler

 

[Seyit Tiken]

Çalışma Kitabının kod bölümüne aşağıdaki kodu yapıştırın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Name = [a1]
End Sub