"Tom Ogilvy" wrote in message
...
Formula1:="=" & RefWS.Cells("A1:A6").Address(1,1,xlA1,True)
...
strangely enough: with Formula1:="=" &
RefWS.Range("A1:A6").Address(1,1,xlA1,True)
i get rte=1004 (my excel came with ms office10).