какой макрос нужно сделать или где почитать хотя бы.
спасибо

как при открытии запускать макрос ?

делаю так
Sub Auto_open()
     LR = Sheets("Лист1").[F999].End(xlUp).Row 'посл. строка
 For i = 1 To LR 'перебираем строки
    If Sheets("Лист1").Cells(i, 4) - DateValue(Now) > 0 Then
      MsgBox Sheets("Лист1").Cells(i, 4) - DateValue(Now)
    End If
  Next
End Sub

но почему показывает что 1 строка. хотя в файле заполнил 10 строк.
что не так делаю