You could loop through the column and use CellBackcolor:
Dim lngRow As Long
For lngRow = 0 To fg1.Rows - 1
fg1.Col = 0
fg1.Row = lngRow
fg1.CellBackColor = vbGreen
Next
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?' Drive a Steam Roller
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.