j2jsalgado

tavopz respondió: Prueba con una macro como esta: Sub Hojas() Dim c As Range Dim s As Worksheet Dim i, j As Integer i = 1 For Each c In Selection Sheets(i).Name = c i = i + 1 Next c For j = 1 To Sheets.Count Sheets(j).Move ChDir "C:\Temp" ActiveWorkbook.SaveAs...

tavopz respondió: Se me ocurre una manera de hacerlo, como es un poco complicado de explicar coloqué un archivo con el ejemplo en la siguiente dirección. http://es.geocities.com/webtavopz/Files/verdesdehasta.xls Revísalo y si tienes alguna duda me cuentas.