Rick,

The Sub HalfFormula() worked great.
Thank you, and to all other replies!!

- Mike


"Rick Rothstein" wrote:

I'm not completely sure what you meant by "once subtotals are initiated".
What is in your GrandTotal cell... a value or a formula?

If a value, try this subroutine (after selecting the GrandTotal cell)...

Sub HalfValue()
ActiveCell.Value = ActiveCell.Value / 2
End Sub

If a formula, try this (again, after selecting the GrandTotal cell)...

Sub HalfFormula()
ActiveCell.Formula = ActiveCell.Formula & "/2"
End Sub

If something else, then please describe your situation in more detail.

--
Rick (MVP - Excel)


"MikeF" wrote in message
...
Once subtotals are initiated, can navigate to a GrandTotal cell [know how
to
do that] but then ...

Have VBA edit that cell adding "/2" to the end of it ... effectively
dividing it by 2 ... whichever cell it ends up being, which is frequently
a
different row.

Have been able to accomplish that, but only with a fixed cell address.

Any assistance will be sincerely appreciated.

-Mike