sAddr dosn't get accepted as a cell address...
sAddr = ActiveCell.Address
ActiveWorkbook.Names.Add Name:="test",
RefersToR1C1:="=Lister!R1C7:sAddr"

Try:

RefersTo:="=Lister!G1:" & sAddr

Cheers, Pete.