[COLOR="Blue"]Dim[/COLOR] varOldResults [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Variant[/COLOR]
[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_Open()
[COLOR="Blue"]With[/COLOR] Sheet1
varOldResults = Application.Transpose(Intersect(.UsedRange, .Range("H2:H" & Rows.Count)))
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]
[COLOR="Blue"]Private[/COLOR] [COLOR="Blue"]Sub[/COLOR] Workbook_SheetCalculate([COLOR="Blue"]ByVal[/COLOR] Sh [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Object[/COLOR])
[COLOR="Blue"]Dim[/COLOR] rngCell [COLOR="Blue"]As[/COLOR] Range
Application.EnableEvents = [COLOR="Blue"]False[/COLOR]
[COLOR="Blue"]If[/COLOR] Sh.CodeName = "Sheet1" [COLOR="Blue"]Then[/COLOR]
[COLOR="Blue"]With[/COLOR] Sheet1
[COLOR="Blue"]For[/COLOR] [COLOR="Blue"]Each[/COLOR] rngCell [COLOR="Blue"]In[/COLOR] Intersect(.UsedRange, .Range("H2:H" & Rows.Count))
[COLOR="Blue"]If[/COLOR] rngCell.Value <> varOldResults(rngCell.Row - 1) [COLOR="Blue"]Then[/COLOR]
[COLOR="Blue"]With[/COLOR] rngCell.Offset(, 1)
.Value = .Value + 1
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
[COLOR="Blue"]Next[/COLOR] rngCell
varOldResults = Application.Transpose(Intersect(.UsedRange, .Range("H2:H" & Rows.Count)))
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
Application.EnableEvents = [COLOR="Blue"]True[/COLOR]
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]