Answers for "vba interior color"

0

vba interior color

Sub ColorRef()
 
Dim x As Integer
 
For x = 1 To 56
  If x < Then
    Cells(x, 1).Interior.ColorIndex = x
    Cells(x, 2) = x
  Else
    Cells(x - 28, 3).Interior.ColorIndex = x
    Cells(x - 28, 4) = x
  End If
Next x
 
End Sub
Posted by: Guest on May-16-2021

Browse Popular Code Answers by Language