Variable in VBA-Code einfügen

Sub ausblenden5()
Dim S, x, i As Integer
Dim arrStart, arrEnde
arrStart = Array(5, 11, 22, 28, 31)
arrEnde = Array(9, 15, 25, 28, 32)
If UBound(arrStart)  UBound(arrEnde) Then
MsgBox "Fehler in der Bereichsdefinition!"
Exit Sub
End If
For S = 8 To 22
If Cells(2, S)  "x" And Cells(2, S)  "X" Then Columns(S).Hidden = True
Next S
ActiveSheet.Calculate
For i = 0 To UBound(arrStart)
For x = arrStart(i) To arrEnde(i)
For S = 8 To 22
If LCase(Cells(3, S))  "y" Then
Cells(x, S).Interior.ColorIndex = xlNone: Cells(x, S).Locked = True
Else
Cells(x, S).Interior.ColorIndex = 4: Cells(x, S).Locked = False
End If
Next S
Next x
Next i
Range("F3").Select
End Sub