Hi Francis

The value of the variable FillColor is not transferred to the macro
ChangeSceneColor. You have to define the variable FillColour as public before
any macro.

regards
reklamo


"Francis Hookham" wrote:

I am using the macros shown below this post to change the fill colors of
some cells.
Sub Pink, Sub Green, etc., transfer the color code to the main macro,
ChangeSceneColour.

But the colors are too strong and I need to use much softer colours.
(These are cells where I cannot change transparency.)
What I should like to do is define the color in RGB.
I know it wont work but this is what I should like:

Sub PalePink()
FillColour = RGB(255,240,245)
ChangeSceneColour
End Sub

Any suggestions, bearing in mind
a) the workbook will be used by a few friends
b) before I finish the workbook I should like to easily modify the colours.

Francis Hookham

------------------------------------------------------------

Sub Pink()
FillColour = 7
ChangeSceneColour
End Sub

Sub Green()
FillColour = 4
ChangeSceneColour
End Sub

Sub ChangeSceneColour()
Count = ActiveCell.Row
While Cells(Count, 2) < "Scene:"
Count = Count - 1
Wend
Range(Cells(Count, 2), Cells(Count + 15, 7)). _
Interior.ColorIndex = FillColour
Cells(Count, 3).Interior.ColorIndex = xlNone
Cells(Count, 5).Interior.ColorIndex = xlNone
Cells(Count, 7).Interior.ColorIndex = xlNone
Cells(Count, 3).Select
End Sub