Hi,
I have a table with changing length of the rows and columns and sums at the end of each row/table/diagonal. I want to put some color to the table, but I get error 438 - Object doesn't support this property or method. Here is the code I have:
Code:
Sub ColorSet()
Dim cLL As Range, Rg As Range
Application.ScreenUpdating = False
For Each cLL In Range("A1:P10")
If IsEmpty(cLL) Then
With cLL.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
Else
With cLL.Interior
.ColorIndex = 3
.Pattern = xlSolid
.LineStyle = xlContinuous
End With
End If
Next cLL
Application.ScreenUpdating = True
End Sub
Could you help me as I can't figure out what the problem is...
Bookmarks