by sjaak1943 » Sat Jun 27, 2009 2:15 pm
Hi,
You can start the macro, when the value in cell A1 changes.
Public sRaceDets As String
Private Sub Worksheet_Change(ByVal Target As Range)
' Only process whole updates
If Target.Columns.Count <> 16 Then Exit Sub
' Stop any further updates until we have completed
Application.EnableEvents = False
' Set-up workbook variables
Set wb1 = ThisWorkbook
Set ws1 = wb1.Sheets("sheet1")
Set ws2 = wb1.Sheets("sheet2")
' Check for a new race (reset variables if new race detected)
If ws2.Range("A1").Value <> sRaceDets Then
sRaceDets = ws2.Range("A1").Value
Your macro
Endif
Hope this helps.