Cara a minha solução simples:
Em uma célula qualquer faça uma formula (no meu caso usei soma, pode ser maior, máximo qualquer uma) para saber se a coluna j tem algum valor que 0.
ai usa a função OPEN do VBA:

Private Sub Workbook_Open()
If Plan1.Range("a1").Value > 0 Then
'menssagem
MsgBox ("Menssagem")
Else
'acontece nada
End If

End Sub

Ajuste a sua necessidade

Bom dia!!

Caso o exemplo do Caio não seja suficiente poste seu arquivo compactado!!!

Att

Caio, deu certo, porém, estou tendo o seguinte erro: O OBJETO É OBRIGATÓRIO.

Adaptei sua fórmula da seguinte forma:

Private Sub Workbook_Open()
Sheets("menu").Select
If adv.Range("p3").Value > 0 Then
MsgBox ("Menssagem")
Else
'acontece nada
End If

End Sub

Qual pode ser o problema? Ele não consegue encontrar a aba? algo está bloqueado?

Att.

No caso o meu erro foi dar o target na aba com o "CAPTION" dela em vez do nome real: PLAN43.

Tudo certo.

Muito obrigado.