Trying to change the tab colour

[sweths27]

Hi,

We generally use excel file where there would be various tabs, however we have two sheet tabs named PPT START and PPT END.
We will do the necessary work in between these tabs only. We will ignore the remaining tabs prior and post to the above mentioned tabs.
I want to change the colour of the sheet tabs in a random choice of colors irrespective of the sheet tab names.
I got the logic that is post the sheet tab of PPT START the loop starts and changes the colour of the sheet tab and the loop ends when it reaches to the PPT END.. but i am not able to implement it.. struck with the loop iteration.. pls help me guys..

Sub Test()
'
' Test Macro
'

'
Sheets("PPT START").Select
    With ActiveWorkbook.Sheets("Sheet2").Tab
        .Color = 255
    End With
    Sheets("Sheet3").Select
    With ActiveWorkbook.Sheets("Sheet3").Tab
        .Color = 65535
    End With
End Sub

This is without the loop.. when i try to declare variable it throws an error...

Thanks in Advance!!!!