valor de una celda de excel

[Betina232022]

lo que quiero hacer es recorrer una tabla tomo los valores de cada celda y comparo si es número.

si es número pregunto si tiene decimales, y dependiendo de eso se le da el formato.

asi estan las instrucciones

sTxt = Libro1.TextRC(i, ii)
If IsNumeric(sTxt) Then
Libro1.Row = i
Libro1.Col = ii
If InStr(1, Str(sTxt), ".") > 0 Then
Libro1.NumberFormat = "#,###,###,##0.0##############"
Else
Libro1.NumberFormat = "###,###,###,###,###,##0"
End If
End If