Solved: Paint next three columns

[justdriving]

I have error in this program. Please help to know:-

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