Macro para substituir caracteres em VBA

Attribute VB_Name = "Módulo1" Sub SeparaTexto() Range("I30") = Replace(Range("H30"), "ABC", " ") End Sub