Option Explicit



Private Sub Workbook_Open()

    Dim Sayfa As Worksheet, Son_Sutun As Integer, Son_Satir As Long

  

    Application.ScreenUpdating = False

      

    For Each Sayfa In ThisWorkbook.Worksheets

        With Sayfa

            .Select

            .Cells.Interior.ColorIndex = 2

            Son_Sutun = .Cells(1, .Columns.Count).End(1).Column

            With .Cells(1, 1).Resize(, Son_Sutun)

                .Font.Bold = True

                .Font.ColorIndex = 3

                .Font.Size = 14

                .Font.Name = "Times News Roman"

                .Interior.ColorIndex = 43

            End With

            Son_Satir = .Cells(.Rows.Count, 1).End(3).Row

            If Son_Satir > 1 Then

                With .Cells(2, 1).Resize(Son_Satir - 1)

                    .Font.Bold = True

                    .Font.ColorIndex = 41

                    .Font.Size = 12

                    .Font.Name = "Times News Roman"

                End With

                With .Cells(2, 1).Resize(Son_Satir - 1, Son_Sutun)

                    .Font.Size = 12

                    .Font.Name = "Times News Roman"

                End With

            End If

            .Columns.AutoFit

        End With

    Next



    Application.ScreenUpdating = True

End Sub

Hocam bu kodlarla sorun çözüldü.