I want to be able to control the status bar. Here is an example of what I am
doing as a test.

I Sheet1 if I change to Column "C" Then the status bar changes to:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 3 Then
oldStatusbar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "I changed this to what I want."
Else
Application.StatusBar = False
End If
End Sub

Now if the Status Bar says "I changed this to what I want." and I hit save
it will go back to "Ready" based on the following code. How would I make the
Status Bar go back to "I changed this to what I want." if that is what was
showing otherwise I would want it to go to "Ready". Note: I also want the
user to be able to see the "Saving ..... .xls " as it happens and then
change back to the "Ready" or "I changed this to what I want." as the case
may be. Here is what I have in the Before_Save

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sFile
'<Optional - this would be before save code
Cancel = True
Application.EnableEvents = False
If SaveAsUI Then
sFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If sFile < False Then
ThisWorkbook.SaveAs sFile
'<Optional - this would be after save code
End If
Else
ThisWorkbook.Save '******
'<Optional - this would be after save code
Application.StatusBar = False
End If
Application.EnableEvents = True
End Sub

Thank you for your help,

Steven