Sub AltUstBilgiGiris()
Dim userx53 As Worksheet
    Application.ScreenUpdating = False
    For Each userx53 In ActiveWorkbook.Worksheets
        Application.StatusBar = "Üstbilgi/Altbilgi Değiştirme " & userx53.Name
        With userx53.PageSetup
            .LeftHeader = "Firmanızın Adı"
            .CenterHeader = "Sayfa: &P / &N"
            .RightHeader = "Tarih: &D &T"
            .LeftFooter = "Klasör :" & ActiveWorkbook.Path
            .CenterFooter = "Sayfa Adı &A"
            .RightFooter = "Dosya Adı:&F"
        End With
    Next userx53
    Set userx53 = Nothing
    Application.StatusBar = False
End Sub