PDA

View Full Version : Solved: Paint next three columns



justdriving
09-11-2011, 03:32 PM
I have error in this program. Please help to know:-


Sub test()
clm = 27
topaintrows = 29
Sheets(1).Range(Cells(2, clm + 1)).Resize(topaintrows, 3).Interior.ColorIndex = 45
End Sub

mikerickson
09-11-2011, 05:19 PM
This should fix the syntax error.
Sheets(1).Cells(2, clm + 1).Resize(topaintrows, 3).Interior.ColorIndex = 45

justdriving
09-12-2011, 11:05 AM
Thanks, It solved this problem.