Gente nao precisa mais, ja descobri. Usei o codigo conforme segue abaixo, se alguem vier a precisar. Valeu por qquer tentaviva de ajuda que alguem pudesse estar pesquisando.
For i = 0 To (MFGrdLista.Rows - 1)
If MFGrdLista.TextMatrix(i, 0) = Format(ItemExcluir, "000") Then
For j = 0 To 7
MFGrdLista.Row = i
MFGrdLista.Col = j
MFGrdLista.CellForeColor = vbRed
MFGrdLista.CellFontStrikeThrough = True
MFGrdLista.Row = i + 1
MFGrdLista.Col = j
MFGrdLista.CellForeColor = vbRed
MFGrdLista.CellFontStrikeThrough = True
Next j
Exit For
End If
Next i