Bom dia cimerio,

Vc poderia tentar fazer um loop em todas as células do intervalo e convertê-las individualmente. 

Att, Televisaos

Sub Converter_em_Inteiros
     Dim i As Long
     Dim UltimaLinha

     UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count,3).End(XlUp).Row
     'Se os dados começarem na linha 2 após o cabeçalho
     If UltimaLinha < 2 Then UltimaLinha = 2
     
     For i = 2 To UltimaLinha
          Range("C" & i).Value = CInt(Range("C" & i).Value)
     Next i
End Sub

podem me ajudar a construir um codigo pra isso?

Wagner, quero fazer igual o seu paradigma, mas não usando excesso de referencias pra outras variaveis

eu queria usar tão somente o

for i = 2 to 200 

Worksheets("plan1").Cells(i, 3).Value

@cimerio,

Só você completar seu código...

for i = 2 to 200

Worksheets("Plan1").Cells(i, 3).Value = CInt(Worksheets("Plan1").Cells(i, 3).Value)

Next i

obrigado, Wagner

aparentemente, deu certo.

mas apareceu uma caixa de aviso na execucao.

Run-time Error

Overflow

Deu Overflow pq talvez algum dos valores que estão nas células seja maior do que o tipo de dados Integer (-32.768 a +32.767) ao ser convertido com CInt(...),

Ao invés disso, tente converter para Long usando CLng(...)

Vc também poderia tentar fazer uma operação algébrica simples para transformar o intervalo em número numa só operação, ao invés de loop (isso se todos forem números):

Range("C2:C200").Value = 1*Range("C2:C200").Value

Lembrando que, caso alguma célula da coluna esteja com o formato definido como texto, antes de fazer a operação anterior melhor limpar todos os formatos da coluna. 

@edsonbr na verdade, todas as celulas que quero converter vem como texto primeiro.