Sub QuitarFormulasRespetandoValores()
On Error Resume Next
For Each Hoja In Sheets
For Fila = 1 To _
Hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Columna = 1 To _
Hoja.Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Hoja.Cells(Fila, Columna) = Hoja.Cells(Fila, Columna)
Next
Next
Next
End Sub[/CODE]
Hola:
El título del aporte lo dice todo:
Un saludo. "Macro".