Necesito eliminar los links a otros libros, respetando el
resto de las formulas.
Hice un procedimiento en VBA para que busque todas las
celdas que tienen un "XLS" y las convierta en valores, lo
malo es que tiene que hacerlo varias veces.
Alguna idea??
Gracias de Antemano.
Ricardo
_______________________________________________________
Sub kill_all_links2()
Dim Counter As Integer
Application.ScreenUpdating = False
For Counter = 1 To 100
On Error Resume Next
Application.StatusBar = "Left " & 150 - Counter
Cells.Find(What:="XLS", After:=ActiveCell,
LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next
For Each x In ActiveSheet.Names
If x.Name <> "Print_Area" Then
x.Delete
End If
Next
Application.StatusBar = False
Application.CutCopyMode = False
End Sub
Leer las respuestas