Excel VBA keleta veiksmu(kodu) vienu metu

Sveiki, turiu toki koda:

Declare Sub Sleep Lib "kernel32" (ByVal dwMillisecons As Long)

Private Sub Button1_Click()

Judink

End Sub

Sub Judink()

gr = 1

st = 1

While Cells(2, 2) = 0

If st > 1 Then

Cells(5, st - 1).Clear

End If

Cells(5, st + 1).Clear

Cells(5, st).Interior.Color = vbGreen

st = st + gr

If st > 48 Then

gr = -1

End If

If st < 2 Then

gr = 1

End If

Sleep 100

DoEvents

Wend

End Sub

Jis nuspalvina (B;5)cell zaliai ir paleidzia ta cell kad judetu pirmyn ir atgal.

Ar imanoma padaryt taip, kad butu nuspalvinta ir (B;7) ir (B;9) ir tie cells butu paleisti vienu metu? Kaip taip padaryt jei imanoma?

Įmanoma, tiesiog pakeisk kode elutės numerį iš 5 į 7, ir ten kur dalyvauja šios eilutės dar jas pradubliuok su eilutės numeriu 9. Pakeistas Judink komandos kodas turėtų atrodyti taip:

Sub Judink_2()

gr = 1

st = 1

While Cells(2, 2) = 0

If st > 1 Then

Cells(7, st - 1).Clear

Cells(9, st - 1).Clear

End If

Cells(7, st + 1).Clear

Cells(7, st).Interior.Color = vbGreen

Cells(9, st + 1).Clear

Cells(9, st).Interior.Color = vbGreen

st = st + gr

If st > 48 Then

gr = -1

End If

If st < 2 Then

gr = 1

End If

Sleep 100

DoEvents

Wend

End Sub