Excel: Vincular variable a una celda de excel for-next

Vamos a aprender a vincular una variable a una celda de excel o a un rango de excel por medio del comando for-next, para recorrer las celdas del rango entre A1 y A100 y resaltar las celdas que tengan un valor diferente de 0

For i = 0 To 98

If Range("A" & 1 + i).value <> 0 Then

Range("A" & 1 + i).Select

    With Selection.Interior

        .Pattern = xlSolid

        .PatternColorIndex = xlAutomatic

        .Color = 255

        .TintAndShade = 0

        .PatternTintAndShade = 0

    End With

end if

next i