Code kürzen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Mldg, Stil, Titel, Antwort
Mldg = "Hat der/die Kollege/Kollegin auch die" & vbCr & _
"folgenden fünf Monate in Vollzeit gearbeitet?"
Stil = vbYesNo + vbQuestion
Titel = "Autoausfüllen?"
If Target.Address = "$E$22" Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Range("G22").Value = "x"
Range("I22").Value = "x"
Range("K22").Value = "x"
Range("M22").Value = "x"
Range("O22").Value = "x"
Range("A23").Select
Else
Range("F22").Select
End If
Else
End If
If Target.Address = "$E$23" Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Range("G23").Value = "x"
Range("I23").Value = "x"
Range("K23").Value = "x"
Range("M23").Value = "x"
Range("O23").Value = "x"
Range("A24").Select
Else
Range("F23").Select
End If
Else
End If
End Sub