Why not just determine this information from the filter and build your own
message.

--
Regards,
Tom Ogilvy

"RB Smissaert" wrote in message
...
Yes, that works.
In my case though I need to retain the sheet filter message (19 of 26
records found) that is
displayed in the statusbar and with that it doesn't work.
I have managed to get the window handle of the statusbar, but I have come
no
further yet.

RBS


"Norman Jones" wrote in message
...
Typo: applicationstatusbar = ""
should be: Application.Statusbar = ""

"Norman Jones" wrote in message
...
Hi RBS,

Sub DemoStatusbar()
Dim aStr As String
Debug.Print Application.StatusBar
Application.StatusBar = "My Message"
Debug.Print Application.StatusBar
aStr = Application.StatusBar & " to the world"
Application.StatusBar = aStr
Debug.Print Application.StatusBar
applicationstatusbar = ""
Debug.Print Application.StatusBar
End Sub

---
Regards,
Norman

"RB Smissaert" wrote in message
...
Using Excel XP and 2003.
Is there any way to get the message of the statusbar into a string
variable?
It doesn't seem you can as the documentation says that if Excel has
control
over the statusbar the return value is False and that is indeed so.
The reason why I am interested to get this string is that I have to
make
a
new
statusbar message out of the existing one plus another string.
Would any API method help here?

RBS