Größer als in ForNext

Sub RLakt_Schaltfläche2_BeiKlick()
zeile1 = 0
wOft = InputBox("Wieviel Zeilen?", "Info")
sos = InputBox("bis Spalte eingeben:", "E")
For i = 1 To wOft
zeile1 = zeile1 + 2
If zeile1 > wOft Then Exit 

Sub 'xxxxxxxxxxxxxxxxxxxx
MsgBox "" & zeile1 & " " & wOft
Range("" & "A" & zeile1 & ":" & sos & zeile1).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Next i
End Sub