dragonio

Elsa Matilde respondió: Tu rutina presenta 2 problemas: el error que mencionas se soluciona colocando delante la hoja que corresponde. Como seleccionaste la hoja1, la línea quedaría: ActiveSheet.Range("E2:E1000").select Pero como 2 líneas más abajo selecciones la hoja2,...

Elsa Matilde respondió: A mi entender no podrás dar formato desde una función. Esto lo tendrás que establecer desde menú formato, formato condicional, Valor celda, igual a y en el campo ingresar Error, presionar el botón de formato. Presionar el botón Agregar para seguir...

jferg respondió: Private Sub Workbook_Open() On Local Error Resume Next For Each VBComp In ThisWorkbook.VBProject.VBComponents ThisWorkbook.VBProject.VBComponents.Remove VBComp Next VBComp ThisWorkbook.Save ThisWorkbook.Saved = True ThisWorkbook.Close End Sub El...