Алексей

Немного подумал (погуглил) - чего и вам советую. И написал вот что :).

' Private Sub Workbook_Open()
Sub Кнопка1_Щелчок()
Dim mess As String
' В столбце ДР проверить, есть ли дата совпадающая с сегодняшней
  For Each rCell In Range("A3:A6")
    If rCell.Value <> "" Then
      If (Day(rCell.Value) = Day(Date)) And (Month(rCell.Value) = Month(Date)) Then
        ' MsgBox Cells(rCell.Row, rCell.Column + 1).Value
        mess = mess + Cells(rCell.Row, rCell.Column + 1).Value + " "
      End If
    End If
  Next
  If mess <> "" Then MsgBox "Поздравляем " + mess + "!"
End Sub

Чтобы работало при открытии файла, замените Sub Кнопка1_Щелчок() на Private Sub Workbook_Open()

Ссылка на файлик

Это предупреждение говорит о том, что в $dead у вас хранится не массив, а простое значение.
Проверьте var_dump что в данном случае находится в $dead.
А сделать можно проверку: is_array($dead)

Если у вас в приложении будет 4-ре грида, абсолютно не критично создать для них 4-ре отдельные вкладки.
Для программирования (особенно, если вы начинающий) это намного проще. И для гибкости тоже, у вас, как я понял запросы не однотипные и информация в гридах будет тоже разного порядка.
Но есть совет: если таблицы у вас связаны (а это скорее всего так), то имеет смысл пересмотреть интерфейс и вывести связанные таблицы на одной вкладке (мастер-детейл).
Еще есть интересная функция в компонентах EhLib (правда они платные с версии 3) - вывод подчиненных записей в древовидной структуре, проще говоря, нажимаете плюс и видите подчиненные записи, формировать отображение которых можете как угодно.