rw = 20
With Activesheet.Range("A1")
.Value = "Header1"
.Font.Bold = True
End with
Activesheet.Range("A2").Resize(rw,1).Value = Application.Transpose(v)
Activesheet.ListObjects.Add SourceType:=xlSrcRange, _
Source=Range("A1").Resize(rw+1,1)

would be my guess, although I don't have a copy xl2003 handy to test it
with.

for your own interpretation:
http://msdn.microsoft.com/library/en...HV03088209.asp

expand the Add method as it applies to ListObjects

--
Regards,
Tom Ogilvy


"thiaga" wrote in message
oups.com...
I am able to show them in the sheet with

'rw = Ubound(v,1) - lbound(v,1) + 1
Range("A1").Resize(rw,1).Value = Application.Transpose(v)
'
How to do it as in Create a List feature?