Prezados,

Estou trabalhando numa macro na qual gera um erro se determinada soma na for 100%. O programa não entende este '100%' como '1'.

Sheets("Gráficos").Activate
If [O343].Value <> 1 Then
MsgBox ("Erro na Soma da Geração")
[O343].Select
Cells(344, 15) = [O343].Value
Exit Sub
End If

Quando a soma está correta, ainda assim está acontecendo erro. Acredito que seja por esses diferentes formatos, porém não consegui resolver.

Se alguém puder me ajudar agradeço, a planilha está em anexo.

Att.,