Sub d()

For Each ws In ActiveWorkbook.Worksheets
counter = counter + 1
Cells(counter, 2).Formula = "=" & ws.Name & "!A3"
Next ws

End Sub

press ALT+F11, Insert-Module, copypaste this code
then click Run, Run Sub

On 16 Gru, 12:24, Paul wrote:
I am to create a main worksheet as "accounts"
I have 40 "client" tabs (all the same)

i wish to list the same cell ref across all 40 sheets into a verticle listing

eg

"accounts" sheet cell b1 would have "client1" cell a3
"accounts" sheet cell b2 would have "client2" cell a3

i have listed "client1" name in accounts sheet cell a1, and client2 in a2 etc.

--
Thanks

Paul