Pop-up con differenza tra date;

Salve a tutti, non so se sto inserendo la mia richiesta nel posto giusto ma ho un URGENTE BISOGNO DI VOI!!! E' in palio la conferma del mio posto di lavoro!!!

Io ho inserito nella cella B1 una data x. Nelle celle sottostanti tale data potrei avere delle attività in programma (supponiamo dalla cella B2 alla B10).
Avrei bisogno di un pop-up che all'apertura del mio file Excel mi faccia in automatico la differenza tra questa data X posta nella cella B1 e la data corrente solo se nell'intervallo di celle B2:B10 ho inserito delle attività in programma. Se in questo intervallo B2:B10 tutte le celle sono vuote il pop-up non deve essere mostrato.
Inoltre il pop-up deve essere mostrato solo se la data x della cella B1 è lontana meno di 8 giorni dalla data corrente.

Il codice da me creato è il seguente ed è funzionante. Il problema è che per quanto riguarda l'intervallo B2:B10 mi considera solo la cella B2. Come dovrei correggere il mio programmino per considerare l'intero intervallo?
Un enorme grazie a chi mi aiuterà a trovare la soluzioneeee!!!

Questo è il codice:

Sub Auto_Open()
Dim TheDate As Date
Dim Msg
If [B2]<> "" Then
TheDate = [B1]
If DateDiff("d", Now, TheDate) < 8 Then
Msg = "Giorni rimanenti: " & DateDiff("d", Now, TheDate)
MsgBox Msg
End If
End If
End Sub

Ciao.

ciao

sei incredibile

ma non ti hanno risposto qui

---

http://www.excelvba.it/Forum/thread.php?f=2&t=11494

---

o serve qualcosa di diverso?