Oh... Trivial!
Thanks a lot, I'll correct that way.

"Ron Rosenfeld" a écrit dans le message de news:
...
On Mon, 2 Jan 2006 14:34:04 +0100, "VALid" wrote:


Hi,

I wrote that very simple function.... which does NOT work.
Any idea why??? Thanks.

Public Function SetCellColor(ByVal AnIndex As Long)
'Application.Volatile (True)
With Selection.Interior
.ColorIndex = AnIndex
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
SetCellColor = AnIndex
End Function



A function can only return a value.

You need to formulate a Sub in order to affect a cell's appearance.


--ron