Sum data in a column of msflexgrid

[nurul elena]

hello...
i have this code

Private Function TotalColumn(Grid As MSFlexGrid, ByVal ColIndex As Integer) As Integer
  Dim R As Long
  Dim Total As Integer
 
  For R = 0 To Grid.Rows - 1
    If IsNumeric(Grid.TextMatrix(R, ColIndex)) Then
      Total = Total + Grid.TextMatrix(R, ColIndex)
    End If
  Next R
 
  TotalColumn = Total
 
End Function
 

my problem is..this code is summing the entire column
what i need is to sum a column for selected rows only..
for example:column 30;
row 1-20

Any help is greatly appreciated