Procedure too Large Hatası

[semerkant]

If ComboBox1 = "ALİ" And ComboBox2 = "VELİ" And ComboBox3 = "İngilizce" Then Sheets("Sheet1").Select
Range("B3").Select
[b3] = 1
Sheets("MONTHLY2000-2008ENG").Select
Application.Visible = True
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = 85
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)

If ComboBox1 = "ALİ" And ComboBox2 = "VELİ" And ComboBox3 = "Türkçe"then
Sheets("Sheet2").Select
Range("B3").Select
[b3] = 1
Sheets("MONTHLY2000-2008TR").Select
Application.Visible = True
ActiveWindow.Zoom = 100
ActiveWindow.Zoom = 85
Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
ActiveChart.Export Filename:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)

bu döngüyü nasıl kısaltabilirim yani ingilizce ve türkçe için ayrı ayrı yazmak zorunda kalıyorum çok uzun oluyor ve Procedure too Large hatası veriyor.

 

[veyselemre]

Kodlarınızı kısalttım, umarım çalışır.

    If ComboBox1 = "ALİ" And ComboBox2 = "VELİ" Then
        Select Case combobox3
            Case "İngilizce"
                Sheets("Sheet1").Range("B3") = 1
                Sheets("MONTHLY2000-2008ENG").Select
            Case "Türkçe"
                Sheets("Sheet2").Range("B3") = 1
                Sheets("MONTHLY2000-2008TR").Select
            Case Else
                Exit Sub
        End Select

        Application.Visible = True

        ActiveWindow.Zoom = 85
        Fname = ThisWorkbook.Path & "\" & ActiveChart.Name & ".gif"
        ActiveChart.Export Filename:=Fname, FilterName:="GIF"
        Image1.Picture = LoadPicture(Fname)
    End If

 

[semerkant]

Teşekkür ederim gayet güzel çalıştı emeğinize sağlık...