You can get statusbar Messages with this Piece of code:
If Session.FindById("wnd[0]/sbar").Text <> "" Then Range("A1").Value = Session.FindById("wnd[0]/sbar").Text
You can get statusbar Messages with this Piece of code:
If Session.FindById("wnd[0]/sbar").Text <> "" Then Range("A1").Value = Session.FindById("wnd[0]/sbar").Text