Dim lRow As Long
Dim lCol As Long
Dim xCount As Long
 
With FlexGrid1
  For lRow =.FixedRows To .Rows - 1
    xCount = 0
    For lCol = .FixesCols To .Cols - 2
      If .TextMatrix(lRow, lCol) = "x" Then xCount = xCount + 1
    Next lCol
    .TextMatrix(lRow, .Cols - 1) = CStr(xCount)
  Next lRow
End With