VBA Code for updating status bar at the bottom + automatic refresh

[theguyIsHere]

I am using the code below to show me the largest number in column B in the status bar.

Sub Return_highest_number()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Gantt table")

'return highest number in a range
Application.StatusBar = "Next ID = " & Application.WorksheetFunction.Max(ws.Range("B2:B99"))

End Sub

I would be grateful if you can guide me on:

1 - How do I add +1 to the max number
2 - The status bar automatically refreshes itself with the next highest number when a user enters a maximum number

Thank you

 

[theguyIsHere]

For step 2 above. in other words, the status bar should refresh any time an entry is made in column B.

Thank you in advance

 

[johnnyL]

I am using the code below to show me the largest number in column B in the status bar.

Sub Return_highest_number()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Gantt table")

'return highest number in a range
Application.StatusBar = "Next ID = " & Application.WorksheetFunction.Max(ws.Range("B2:B99"))

End Sub

I would be grateful if you can guide me on:

1 - How do I add +1 to the max number

Simplest answer to 1) would be application.StatusBar = "Next ID = " & Application.WorksheetFunction.Max(ws.Range("B2:B99")) + 1

For step 2 above. in other words, the status bar should refresh any time an entry is made in column B.

Probably a worksheet change event is what you need.