[kapetang]

Αν αντιγράψεις την παρακάτω μακροεντολή στο Module1 νομίζω ότι θα λυθεί το πρόβλημα.

Sub macroColor()
    Dim i As Integer
    For i = 1 To 105
        If Sheets("sheet2").Cells(i, 2).Value > 0 Then
            Sheets("sheet1").Cells(1, i).Interior.ColorIndex = 3
        Else
            Sheets("sheet1").Cells(1, i).Interior.ColorIndex = 4
        End If
    Next
End Sub

Φιλικά/Γιώργος