Hi
Try this
Sub kTest()
Dim ka, k(), i As Long, c As Long, n As Long, Hdr, x
Dim wks As Worksheet, Flds
Hdr = Array(NAME, Specialty_name, Office_name, Address_1,
Address_2, _
Address, Phone_number_1, Fax_number)
ka =
Kris,
You are amazing and gracious for your help and very quick repsonse. Thank
you millions!
John
On Tue, May 8, 2012 at 10:09 AM, Krishna Kumar krishnak...@gmail.comwrote:
Hi
Try this
Sub kTest()
Dim ka, k(), i As Long, c As Long, n As Long, Hdr, x
Dim wks As Worksheet,
John
You are welcome. Thanks for the feedback
Kris
ExcelFox http://www.excelfox.com/forum/forum.php
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and
Replace
ReDim k(1 To UBound(ka, 1) * (UBound(Hdr) + 1) + UBound(Hdr) + 1, 1 To 1)
with
ReDim k(1 To 1, 1 To 1)
Kris
ExcelFox http://www.excelfox.com/forum/forum.php
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles,
Absolutely fantastic! Thank you for your generous help.
John
On Tue, May 8, 2012 at 11:07 AM, Krishna Kumar krishnak...@gmail.comwrote:
Replace
ReDim k(1 To UBound(ka, 1) * (UBound(Hdr) + 1) + UBound(Hdr) + 1, 1 To 1)
with
ReDim k(1 To 1, 1 To 1)
Kris
ExcelFox