You can examine the contents of sheet objects by specifying the object and using row and column to identify a "cell" similar to what you might do with a spreadsheet macro. Here's an example:
set obj_total=ActiveDocument.Sheets("SH04").SheetObjects("CH11").GetCell(1,8) 'that GetCell argument is row,column If Err.number<>0 then msgbox("Error getting TOTAL value") exit sub end if 'remove editing characters and convert text to a number current_value=CDbl(replace(obj_total.text,"%",""))
The example shows a method for removing a % character. You don't need to do that if your cell contains a number and nothing else.