>>I have a number of grids that I desire to visualy modify via a function. And I get the type mismatch error when using the code below. I know I am overlooking something simple. I appreciate everyones help.
>>
>>

>>Private Sub CmdTestGreenBar_Click()
>>    GreenBar (frmMain.grdBudgetSummary)
>>End Sub
>>'====================
>>Public Function GreenBar(objGrid As Object)
>>    Dim x As Long
>>    objGrid.Row = 0
>>    objGrid.Col = 0
>>
>>    Do Until objGrid.Row = objGrid.Rows - 1
>>        objGrid.Row = objGrid.Row + 1
>>
>>        For x = 0 To objGrid.Cols - 1
>>            objGrid.Col = x
>>            objGrid.CellBackColor = &HC0FFC0 'Light green
>>        Next
>>        objGrid.Row = objGrid.Row + 1
>>    Loop
>>' DEV: fix for odd number of rows
>>End Function

>
>
>Which grid control are you using?
>
>Try a simple thing, don't put parentheses around the the paramater:
>

GreenBar frmMain.grdBudgetSummary

YIPPEE!! I took it out of parentheses and it worked as desired! MSFlexGrid is the one I'm using.

Thanks Eric! You ROCK!!

Now I need to look up sorting this grid on the fly. Any suggestions?