VBA Zeilenümbrüche

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bn As String, wert As String
Dim lz As Long
Dim Blatt As Worksheet
If Target.Address = "$B$8" Or Target.Address = "$B$10" Then
Range("B12").Calculate
bn = Range("B8").Text
On Error Resume Next
Set Blatt = Worksheets(bn)
On Error GoTo 0
If Blatt Is Nothing Then Exit Sub
lz = Sheets(bn).Cells(Rows.Count, 1).End(xlUp).Row
wert = Range("B12").Text
If WorksheetFunction.CountIf(Sheets(bn).Columns(5), wert) = 0 Then
Range("A11").Value = "Abteilung nicht gefunden!"
MsgBox "Noch keine Daten f?r dieses Jahr vorhanden! Bitte nicht vergessen mit F9    _
_
_
neu zu berechnen, dies kann einige Zeit in Anspruch nehmen!"
Exit Sub
Else
MsgBox "Bitte nicht vergessen mit Taste F9 neu zu berechnen,dies kann einige Zeit   _
_
_
in Anspruch nehmen!"
Range("A11").Value = ""
End If
If Sheets(bn).ProtectContents = True Then Sheets(bn).Unprotect Password:="Test"
If Sheets(bn).FilterMode Then Sheets(bn).ShowAllData
Sheets(bn).Range("A8:AL" & lz).AutoFilter Field:=5, Criteria1:=wert
Sheets(bn).Rows(9).Hidden = True
Sheets(bn).Protect Password:="Mikka32", UserInterfaceOnly:=True, AllowFiltering:=   _
_
_
True
End If
End Sub