TO MANY line continuations hatası

[firat.kavak]

merhaba aşağıdaki yazdığım kodda TO MANY line continuations hatası veriyor aradaki boşluğu silemiyorum kırmızı kalıyor ne yapmamı önerirsiniz acaba

teşekkür ederim.


If dosyaadi = "" Then

MsgBox "'DT200H_'ile başlayan dosya bulunamadı"
Exit Sub
End If




'test için
If dosyaadi <> "" Then
MsgBox "dosya bulundu. " & dosya
End If


If Workbooks(makrolu_dosya).Sheets(1).Name <> "USD" Or _
Workbooks(makrolu_dosya).Sheets(2).Name <> "EUR" Or _
Workbooks(makrolu_dosya).Sheets(3).Name <> "GBP" Or _
Workbooks(makrolu_dosya).Sheets(4).Name <> "CHF" Or _
Workbooks(makrolu_dosya).Sheets(5).Name <> "AUD" Or _
Workbooks(makrolu_dosya).Sheets(6).Name <> "DKK" Or _
Workbooks(makrolu_dosya).Sheets(7).Name <> "SEK" Or _
Workbooks(makrolu_dosya).Sheets(8).Name <> "JPY" Or _
Workbooks(makrolu_dosya).Sheets(9).Name <> "CAD" Or _
Workbooks(makrolu_dosya).Sheets(10).Name <> "KWD" Or _
Workbooks(makrolu_dosya).Sheets(11).Name <> "NOK" Or _
Workbooks(makrolu_dosya).Sheets(12).Name <> "SAR" Or _
Workbooks(makrolu_dosya).Sheets(13).Name <> "RUB" Or _
Workbooks(makrolu_dosya).Sheets(14).Name <> "CNY" Or _
Workbooks(makrolu_dosya).Sheets(15).Name <> "IQD" Or _
Workbooks(makrolu_dosya).Sheets(16).Name <> "XAU" Or _
Workbooks(makrolu_dosya).Sheets(17).Name <> "GEL" Or _
Workbooks(makrolu_dosya).Sheets(18).Name <> "BHD" Or _
Workbooks(dosyaadi).Sheets(1).Name <> "USD" Or _
Workbooks(dosyaadi).Sheets(2).Name <> "EUR" Or _
Workbooks(dosyaadi).Sheets(3).Name <> "GBP" Or _
Workbooks(dosyaadi).Sheets(4).Name <> "CHF" Or _
Workbooks(dosyaadi).Sheets(5).Name <> "AUD" Or _
Workbooks(dosyaadi).Sheets(6).Name <> "DKK" Or _

Workbooks(dosyaadi).Sheets(7).Name <> "SEK" Or _
Workbooks(dosyaadi).Sheets(8).Name <> "JPY" Or _
Workbooks(dosyaadi).Sheets(9).Name <> "CAD" Or _
Workbooks(dosyaadi).Sheets(10).Name <> "KWD" Or _
Workbooks(dosyaadi).Sheets(11).Name <> "NOK" Or _
Workbooks(dosyaadi).Sheets(12).Name <> "SAR" Or _
Workbooks(dosyaadi).Sheets(13).Name <> "RUB" Or _
Workbooks(dosyaadi).Sheets(14).Name <> "CNY" Or _
Workbooks(dosyaadi).Sheets(15).Name <> "IQD" Or _
Workbooks(dosyaadi).Sheets(16).Name <> "XAU" Or _
Workbooks(dosyaadi).Sheets(17).Name <> "GEL" Or _
Workbooks(dosyaadi).Sheets(18).Name <> "BHD" Then

MsgBox "sayfa isimleri hatalı"

Exit Sub

End If

 

[veyselemre]

Denenmemiştir.

    sayfalar = Array("USD", "EUR", "GBP", "CHF", "AUD", "DKK", _
                     "SEK", "JPY", "CAD", "KWD", "NOK", "SAR", _
                     "RUB", "CNY", "IQD", "XAU", "GEL", "BHD")

    For Each dosya In Array(makrolu_dosya, dosyaadi)
        For i = 0 To UBound(sayfalar)
            If Workbooks(dosya).Sheets(i + 1).Name <> sayfalar(i) Then
                MsgBox "sayfa isimleri hatalı"
                Exit For
            End If
        Next i
    Next dosya

 

[firat.kavak]

Denenmemiştir.

    sayfalar = Array("USD", "EUR", "GBP", "CHF", "AUD", "DKK", _
                     "SEK", "JPY", "CAD", "KWD", "NOK", "SAR", _
                     "RUB", "CNY", "IQD", "XAU", "GEL", "BHD")

    For Each dosya In Array(makrolu_dosya, dosyaadi)
        For i = 0 To UBound(sayfalar)
            If Workbooks(dosya).Sheets(i + 1).Name <> sayfalar(i) Then
                MsgBox "sayfa isimleri hatalı"
                Exit For
            End If
        Next i
    Next dosya

Desteğiniz için teşekkür ederim.

sadece Exit Sub ekledim araya işim görüldü,

"
sayfalar = Array("USD", "EUR", "GBP", "CHF", "AUD", "DKK", _
"SEK", "JPY", "CAD", "KWD", "NOK", "SAR", _
"RUB", "CNY", "IQD", "XAU", "GEL", "BHD")

For Each dosya In Array(makrolu_dosya, dosyaadi)
For i = 0 To UBound(sayfalar)
If Workbooks(dosya).Sheets(i + 1).Name <> sayfalar(i) Then
MsgBox "sayfa isimleri hatalı"
Exit Sub
Exit For

End If
Next i
Next dosya"