Hallo Zusammen

Ich habe vor langer Zeit eine Makro erstellt. Die bis Dato gestern noch funtkionierte. Heute erhalte ich folgende Fehlermeldung, sobald ich die Funktion über einen Button aktiviere

- Fehler beim Kompilieren: Erwartet: Base oder Compare oder Expliciti oder Private

Zudem markiert es mir in rot foglende Zeile und ExplicitSub wird blau markiert.

Option ExplicitSub BedingteFormatierungHeilen()

Den gesamten Skript sie wie folgt aus

Option ExplicitSub BedingteFormatierungHeilen()
'Setzt .EnableFormatConditionsCalculation auf True
'Beim Konvertieren von .xls nach .xlsx oder .xlsm wird dieses Flag nicht automatisch gesetzt.
'Dies führt dazu, dass bedingte Formatierungen zum Teil nicht richtig laufen.
'Hiermit wird dieser Zustand für die einzelnen Blätter dauerhaft aingestellt.
Dim ws As Worksheet, wb As Workbook
Dim i As Integer
Dim i2 As Integer
Dim Namen As String
Dim Namen2 As String
For Each wb In Workbooks
    If Not (wb.Name = "PERSONL.XLS" Or wb.Name = "PERSONAL.XLSB") Then
        If (MsgBox("In Arbeitsmappe " & wb.Name & _
                   " .EnableFormatConditionsCalculation setzen?", _
                   vbYesNo + vbQuestion) = vbYes) Then
            i = 0
            i2 = 0
            Namen = vbCr
            Namen2 = vbCr
            For Each ws In wb.Worksheets
                With ws
                    If Not .EnableFormatConditionsCalculation Then
                        .EnableFormatConditionsCalculation = True
                        i = i + 1
                        Namen = Namen & i & "." & vbTab & .Name & vbCr
                    Else
                        i2 = i2 + 1
                        Namen2 = Namen2 & i2 & "." & vbTab & .Name & vbCr
                    End If  ' .EnableFormatConditionsCalculation
                End With    ' ws
            Next ws
            If i > 0 Then
                MsgBox "Arbeitsmappe " & wb.Name & vbCr & vbCr & _
                       "Bei diesen Blättern wurde .EnableFormatConditionsCalculation gesetzt:" _
                       & Namen & vbCr & vbCr & _
                       "Bei diesen Blättern war es bereits gesetzt:" _
                       & Namen2, vbExclamation
            Else
                MsgBox "Arbeitsmappe " & wb.Name & vbCr & vbCr & _
                "Bei allen Blättern war .EnableFormatConditionsCalculation bereits gesetzt!", _
                vbExclamation
            End If
            If (MsgBox("Arbeitsmappe " & wb.Name & " speichern?", vbYesNo + vbQuestion) = vbYes) Then wb.Save
        End If
    End If
Next wb
End Sub
 

Kann mir jemand sagen, wieso es bis jetzt funtkioniert hat und jetzt nicht mehr. Ich habe auch schon versucht einen neuen Skript zu erstellen, aber es kommt immer die selbe Fehlermeldung.

Hoffe jemand kann mir weiterhelfen. 

Vielen Dank

Marco