damn ...
codereading should be better ;-)
Replace the 2 Lines xlssht.Cells with the following
ActiveSheet.Cells(1,1).Value = .findbyId("wnd[2]/usr/lbl[5,1]").text ActiveSheet.Cells(1,2).Value = .findbyId("wnd[2]/usr/lbl[5,2]").text
Should work better ...
if there appears any error pls let us know in which line it appears