Bom dia a todos,

Sou nova no fórum e espero contar com a ajuda de vocês.
Tenho uma dúvida em relação a um código de macro.
Não consegui ainda chegar a algo compatível.

Gravei metade do que eu quero fazer e gostaria de editar esta mesma macro adicionando mais uma função.

O que eu necessito é que a macro identifique no range da coluna "I" por exemplo, todos os números que estiverem com a cor de fonte "vermelha" e que os multiplique por -1 para que se tornem valores negativos na minha planilha. É possível?

Estes são os códigos que já tenho na macro e que estão funcionando perfeitamente até então:

Sub Ajuste_Extrato()
'
' Ajuste_Extrato Macro
' Ajusta o extrato de forma rápida desde que o mesmo seja colado a partir da coluna G
'
' Atalho do teclado: Ctrl+Shift+E
'
Columns("H:I").Select
Range("H82").Activate
Selection.Delete Shift:=xlToLeft
Columns("I:I").Select
Range("I82").Activate
Selection.Delete Shift:=xlToLeft
Columns("H:H").EntireColumn.AutoFit
Range("J101").Select
ActiveWindow.SmallScroll Down:=0
Columns("I:K").Select
Range("I82").Activate
Selection.Style = "Comma"
Columns("L:L").Select
Range("L82").Activate
Selection.Delete Shift:=xlToLeft

End Sub

Agradeço a todos desde já.