Message Box when value is within 100 of the next 1000

[Ironman]

Hi

Sheet 'Daily Tracking' Cell CG375 contains a value, currently 27851 and is increasing.

What I'd be really grateful for is a message box that is triggered when I open the workbook if/whenever the value in Sheet 'Daily Tracking' Cell CG375 is within 100 of the next 1000 i.e. it will next trigger between 27900 and 28000. It will then trigger between 28900 and 29000 and so on and in each case it calculates the difference between the two values.

e.g. for 27900 the message would be "100 miles to go until you hit 28,000 miles".

Also, if possible, when the value is equal to or greater than the 1000 by up to 10 e.g. 28000 - 28010 a different message is triggered e.g. "Congratulations, you have now run over 28,000 miles"

I'd also appreciate it if the value could be rounded up to the nearest whole number.

Many thanks!

 

[Ironman]

Hi Michael, yes, that's correct (it's the Training Log sheet) - thanks for your help again - that works fine, apart from just the rounding of the number, which was where I was stuck last time (it shows 2 decimal places, I just need to lose those please?)

Thanks once again.

 

[Ironman]

It's OK, I've finally sussed it

Dim A As Integer
A = Sheets("Daily Tracking").Range("CG375").Value Mod 1000
If 1000 - A <= 100 Then MsgBox 1000 - A & " miles to go until you hit " & Format(Sheets("Daily Tracking").Range("CG375").Value + 1000 - A, "#,##0")
If A > 0 And A <= 10 Then MsgBox "Congratulations! You have now run over " & Format(Sheets("Daily Tracking").Range("CG375").Value + 1000 - A, "#,##0")

 

[Michael M]

Ok, glad to help...