Bir alan seçtiğinizde veya birden fazla alan seçtiğinizde ilgili sayfa bilgisiyle beraber seçilen alanı ya da alanları durum çubuğuna yazdıran koddur.
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.StatusBar = Sh.Name & " " & Target.Address
End Sub