Dear Rob van Gelder,

Thank you so much! That worked perfectly!!!!

Anita

Rob van Gelder wrote:

You want something like:
myEngTotal.Formula = "=sumif( " & _
myEngRange.Columns(1).Address(True, True) & "," & """Total""" & "," & _
myEngRange.Columns(1).Address(False, False) & ")"