Hi
The lack of ws reference might still be the problem. try
With ws
count = Application.count(.Range(.Cells(2, 1), .Cells(200, 1)))
Set rngSource = .Range(.Cells(2, 1), .Cells(count + 1, 2))
end With

Note the . in front of Range in both lines.

regards
Paul

On Jul 5, 2:23*pm, PA wrote:
thanks for the help. unfortunatelly your suggestion returns:

---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Method or data member not found
---------------------------
OK * Help *
---------------------------