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 = " &...