Solved: Paint next three columns

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]

This should fix the syntax error.
[VBA]Sheets(1).Cells(2, clm + 1).Resize(topaintrows, 3).Interior.ColorIndex = 45 [/VBA]

Thanks, It solved this problem.