tekushee_vremya = Now()

Sub proverka_plusov()
    tekushee_vremya = Now()
    vremya_c_30_sek = tekushee_vremya + Second(30)
  If Now() < tekushee_vremya Then
  'Что-то выполняется
  MsgBox "если истина"
  Else
  ' Что-то не выплняется
  MsgBox "если не истин"
  End If
End Sub

Private Sub Workbook_sheetChange(ByVal Sh As Object, ByVal Target As Range)
   If Not Intersect(Target, Range("B10:B20")) Is Nothing Then '
        ' 
        test_macros
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then ' реакция на изменение в ячейке с координатами A1 _
                                                  если нужна другая ячейка, поменяйте координату, _
                                                  т.е. вместо "$A$1" впишите любую другую (знак "$" _
                                                  обязателен!
        'запускаем наш макрос
        myMacro
    End If
End Sub