Probleme mit Code

    Dim intRow As Integer
Dim intRow1 As Integer
Dim wks As Worksheet
intRowA = 11
intRow = 12 'Startzeile hier ab P1
For Each wks In Worksheets
Do While Left(Worksheets("Angaben zum Profukt").Cells(intRowA, 2), 2) = "P1"
If Worksheets("Angaben zum Produkt").Cells(intRowA, 4)  "" Then
Do While Left(wks.Cells(intRow, 1), 2) = "P1"
If (wks.OLEObjects("OptionButtonA1").Object.Value = True And wks.Cells( _
intRow, 4)  "" _
And wks.Cells(intRow, 8).Value > 0 And (wks.Cells(intRow, 2) = "" Or  _
wks.Cells(intRow, 3) = "")) Then
wks.Activate
MsgBox "Achtung: Inkonsistente / unvollständige Angaben!" &  _
vbNewLine & vbNewLine _
& "Fehlermeldung: Angaben zur Produktbeschreibung prüfen.",  _
vbOKOnly + vbExclamation, _
"Fehlermeldung: Angaben zur Produktbeschreibung " & wks.Name
Cancel = True
Exit Sub
Exit Do
Else
intRow = intRow + 1
End If
Loop
Exit Do
Else
intRowA = intRowA + 1
End If
Loop
Next wks
End Sub