Hola Arantza,
En el libro desde donde deseas hacer la evaluación hacia otro puedes colocar lo siguiente:
-------------------------------------------------------------------------------------------------------------------------->
'// Verifica en libro objetivo si celda A1 está vacia.
If Application.Workbooks("LibroAEvaluar.xlsx").Sheets(1).Range("A1") = Empty Then
Application.Workbooks("LibroAEvaluar.xlsx").Sheets("1").Range("A1").Interior.Color = RGB(255, 0, 0)
End If
Para el código anterior es importante asegurarte que el libro objetivo esté abierto. Eso lo puedes hacer así:
----------------------------------------------------------------------------------------------------------------------------------------------->
Dim i As Integer
Dim strWorkBook As String
Dim b As Boolean
'vars
b = False
strWorkBook = "LibroAEvaluar.xlsx"
'obtiene libros disponibles
For i = 1 To Application.Workbooks.Count
If strWorkBook = Application.Workbooks(i).Name Then
b = True
Exit For
End If
Next i
'evalua resultado
If b = False Then MsgBox "Libro requerido no se encuentra disponible", vbExclamation, "Mensaje"
----------------------------------------------------------------------------------------------------------------------------------------------->
Un saludo,