Raul,

NewWS.Cells(xx% + 1, 2).Formula = "='" & Sheets(xx%).Name & "'!C271"

HTH,
Bernie
MS Excel MVP


"Raul Sousa" wrote in message
...
Hi,
I have this code, which someone provided me.
(.)
NewWS.Cells(xx% + 1, 2).Value = Sheets(xx%).Range("c271").Value
(.)
My goal is to have in NewWS.Cells(xx% + 1, 2) a link instead of the value.
Any help is most welcome.