Henry Garnique

Sub EliminarTotal() Dim celda As Range For Each celda In Selection celda.Value = LTrim(celda.Value) celda.Value = RTrim(celda.Value) celda.Value = WorksheetFunction.Trim(celda.Value) Cells.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, _...