Funzione Excel Colora Celle Alternato

Sub ColoraCelleAlternato()
'
' ColoraCelleAlternato
' Macro registrata il 15/03/2007 da G. Piras
'

valoreprec = ActiveCell.Value
riga = ActiveCell.Row
colonna = ActiveCell.Column
colore = ActiveCell.Interior.ColorIndex
foglio = ActiveCell.Worksheet.Name
While Worksheets(foglio).Cells(riga, colonna).Value <> ""
If valoreprec <> Worksheets(foglio).Cells(riga, colonna).Value Then
If colore = 15 Then
colore = 0
Else
colore = 15
End If
End If
Worksheets(foglio).Cells(riga, colonna).Interior.ColorIndex = colore
valoreprec = Worksheets(foglio).Cells(riga, colonna).Value
riga = riga + 1
Wend

'
End Sub