Give this a whirl

Code:
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)

    Total = 0

    For i = 3 To 10
      If Len(DataGrid1.Columns(i).Text) > 0 Then
        Total = Total + Val(DataGrid1.Columns(i).Text)                  
      End If
    Next
    
    'add total to Total column
    DataGrid1.Columns(14).Text = Total

End Sub
Or you could use the AfterColUpdate as well

[Edited by Iain17 on 04-26-2000 at 05:00 PM]