On Jul 2, 1:56 pm, "Bob Phillips" wrote:
Jamie,

From Winspector, the class of the status bar seems to be Excel2 now, which
is a pain.

This seems to work

Dim hThis As Long
Dim hExcel2 As Long
Dim hStatus As Long

hThis = FindWindow("XLMAIN", Application.Caption)

hExcel2 = FindWindowEx(hThis, 0&, "EXCEL2", vbNullString)

hStatus = FindWindowEx(hExcel2, 0&, "MsoCommandBar", "Status Bar")

Thanks Bob. Works for me too!

Jamie.

--