Issue with new code:

I figured out how to make it adjust with the following code but i now
get an error 91 on the CTitleRange = CTRange.Address(external:=True)
line. Can anyone help me work out why. I'm doing the same thing with
both lines


Code:
--------------------

With Worksheets("Category")
Set CVRange = .Range(ActiveSRange & .Cells(.Rows.Count, "A").End(xlUp).Row)
CValueRange = CVRange.Address(external:=True)
Set CTRange = .Range("B10:B" & .Cells(.Rows.Count, "A").End(xlUp).Row)
CTitleRange = CTRange.Address(external:=True)
End With

--------------------


--
Sami82
------------------------------------------------------------------------
Sami82's Profile: http://www.excelforum.com/member.php...o&userid=27111
View this thread: http://www.excelforum.com/showthread...hreadid=548380