Ok....
That worked.....
[VBA]
ActiveWorkbook.Names.Add Name:="TotalRow", RefersToR1C1:="=Sheet1!R133C1:R133C33"
[/VBA]

Thanks Steve