limpiar usedrange

Hola a todos, tengo un problema con UsedRange, Rango = Hoja101.UsedRange.Address Rango = Replace(Rango, "$A$1", "$A$2") UserForm7.ListBox1.RowSource = Rango De esta forma evito cargar filas de mas en el cuadro de lista. Pero en ...

Este codigo debe limpiar los datos residuales de un archivo después de borrarlos? Pregunto porque no produce cambios! Sub Test() Dim Wk As Worksheet For Each Wk In ThisWorkbook.Worksheets Debug.Print Wk.UsedRange.Address Next End Sub