Добрый день!

Имеется макрос:

Sub info1()
Dim info1 As String
If Application.ThisWorkbook.Sheets(1).Cells(29, 16) > Application.ThisWorkbook.Sheets(1).Cells(28, 16) Then
Sheets(8).Cells(73, 82) = "Используется первый вид транспорта до пункта назначения"
Else
Sheets(8).Cells(73, 82) = "Первый вид транспорта до пункта назначения не используется"
End If
End Sub

Нужно сделать так, чтобы он срабатывал каждый раз, когда меняются значения в листе 1, ячейка 29;16.

Прошу помочь!