' Change Cell Background Color
'
I figured out how to restore the background fill color as shown below but by
doing this, it inadvertently removes the gridlines. You can set the
background fill to "No Color" to get this back, but that defeats the whole
purpose of restoring the background fill color in the first place. Any help
is appreciated.

'other variables here
' .........
Dim vCellBackgroundFill As Variant 'store color
Dim vCellBackgroundNoFill As Variant 'background grid

vCellBackgroundFill = Selection.Interior.Color

' Do other work here ....

With Selection.Interior
.Color = vCellBackgroundFill
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Thanks

"GS" wrote in message ...

Also working...

Const vFontname As Variant = "Trebuchet MS"
Selection.Font.Name = vFontname

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion