sub PartialSums

	set obj = ActiveDocument.GetSheetObject("CH11")
	set prop = obj.GetProperties
	set dims =prop.Dimensions

	for i = 0 to dims.Count-1
		if dims(i).ShowPartialSums then
			dims(i).ShowPartialSums=false
		else
			dims(i).ShowPartialSums=true
		end if
	next

	obj.SetProperties prop


	set mytext = ActiveDocument.GetSheetObject("TX94")
	prop = mytext.GetProperties

	if prop.Layout.Text.v = "Show Partial Sums" then
		prop.Layout.Text.v = "Hide Partial Sums"
	else
		prop.Layout.Text.v = "Show Partial Sums"
	end if

	mytext.SetProperties prop


end sub