Makro um MsgBox ergänzen

Sub Leerzelle_pruefen_ergaenzen()
Dim RnG As Range
Dim Loletzte&, x&, j&
Loletzte = Range("EndeBereich").Row - 1 'im Namensnanager definiert s.ausgeblendete Zeile
For j = 11 To 11                         '11 = Spalte K
For x = 7 To Loletzte                   'ab Zeile 7 wird geprüft
If IsEmpty(Cells(x, j)) Then          'wenn Zelle leer, dann
Cells(x, j).Select                 'Zelle wird markiert
If j = 11 Then Cells(x, j).FormulaLocal = _
"=WENN(" & Cells(x, j - 1).Address(0, 0) _
& "="""";"""";WENN(" & Cells(x, j - 1).Address(0, 0) _
& "=System!$R$6;""nein"";""Fehler"")))"
If MsgBox("In " & Cells(x, j).Address(0, 0) _
& " wurde die fehlende Formel eingefügt:" _
& vbLf & vbLf & Cells(x, j).FormulaLocal & vbLf & vbLf & vbLf _
& "Weitersuchen?", vbYesNo)  vbYes Then Exit Sub
End If
Next
Next
End Sub