??Any ideas anyone??

I did have this, but it failed at the 'With ActiveDocument.InlineShapes(1)' yet it worked on the other person's vba

Dim objSS As InlineShape
With ActiveDocument.InlineShapes(1)
.OLEFormat.DoVerb wdOLEVerbHide
With .OLEFormat.Object.Application
With .workbooks(1).Worksheets(1)
MsgBox .Range("A1").currentregion.Rows.Count
End With
End With
End With

TIA