Hi All,

I have a function like the one listed below.When iam using the Link:
True in the Paste method (fourth statement from Last) the fuction i
failing.But it's working fine when i remove that argument .Can any bod
help me on this


Thanks in advance



Function GenerateCategoryTabs1()
Dim wsCategoryTab As Worksheet
Dim wsDetailsSheet As Worksheet
Set wsCategoryTab = ThisWorkbook.Worksheets("Job Categoryn")
Set wsDetailsSheet = ThisWorkbook.Worksheets("Details Tab")
arrJobTitles = Array("Title1", "Programmer/Developer")
Set rngData = wsDetailsSheet.Range("B3:AS14")

Application.ScreenUpdating = False
n = 1

For i = 0 To UBound(arrJobTitles)

With rngData
.AutoFilter Field:=3, Criteria1:=arrJobTitles(i)
VisibleDropDown:=False
.CurrentRegion.Offset(3, 0).Resize(, 47).Copy
wsCategoryTab.Paste Destination:=wsCategoryTab.Range("B22")
Link:=True


End With

Next i
rngData.AutoFilter


End Functio

--
xcelio
-----------------------------------------------------------------------
xcelion's Profile: http://www.excelforum.com/member.php...fo&userid=1628
View this thread: http://www.excelforum.com/showthread.php?threadid=31926