Tek tek sayfaların isimlerini mesaj kutusunda gösterir
Sub sayfaismigoster()
‘/, Tek tek sayfaların isimlerini mesaj kutusunda gösterir
Dim isayfasayisi As Integer
Dim isayfa As Integer
isayfasayisi = ActiveWorkbook.Worksheets.Count
For isayfa = 1 To isayfasayisi
Worksheets(isayfa).Activate
MsgBox Worksheets(isayfa).Name
Next isayfa
End Sub
