döngü işlemi

[chakistes]

Merhaba arkadaşlar aşağıdaki kodu checkbox1 den checkbox 20 ye kadar excelde sayfa6 da f10 dan f30 a kadar g10 dan g30 a kadar e10dan e30 kadar devam ediyor bunu döngü ile nasıl yapabilirim.

If veri.checkbox1.Value = True Then
veri.checkbox1.Value = True
[F10] = " % 18"
[g10] = WorksheetFunction.Sum([E10] * 18 / 100 + [E10])

Else
veri.checkbox1.Value = False
[F10] = ""
end if