Macro corre en un PC pero no en otro

Tengo un problema con un par de planillas, que abren en un PC pero no en otros.

Específicamente el problema parte en el ThisWorkbook donde tengo una Private Sub Workbook_Open

La planilla tiene en una celda una fecha específica (que es la fecha de un trabajo) y debe comparar dicha fecha con la fecha al día de hoy y escribir un texto si la fecha de hoy es anterior o posterior a la fecha del trabajo, entre otras tareas. Destaco el ítem de la fecha porque el error alude a "DATE" como algo que no se puede encontrar dentro del proyecto.

Ya fueron descartadas las hojas de ruta, porque la información se encuentra en un servidor de acceso común para los computadores en donde he realizado las pruebas.

Sospecho que pueda ser una actualización de software. Las planillas que les indico tienen formularios en donde se deben registrar fechas y, después de un fin de semana (donde se realizan las actualizaciones de sistemas), dejaron de funcionar los DataPicker insertados en dichos formularios.

Les detallo la programación

Private Sub Workbook_Open()

isUsuarioValidado=False

ThisWorkbook.Unprotect

Hoja5.Visible=xlSheetVisible

Hoja5.Select

ActiveSheet.Unprotect

ActiveSheet.Range("I7").Select

calif=Hoja5.Range("XFD1")

If Date < calif Then

ActiveSheet.Range("I7") = "Planilla validada"

Else

ActiveSheet.Range("I7") = "Planilla no validada"

End If

End Sub

Añade tu respuesta

Haz clic para o