With Select_Worksheets.ListBox1
iCtr1 = 0
For iCtr = 0 To .ListCount - 1
iCtr1 = iCtr1 + 1
ReDim Preserve varr(1 To iCtr1) ****
varr(iCtr1) = .List(iCtr)
Next iCtr
End With

Why might the line **** suddenly have started to
give a Type mismatch error, please?

Regards.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.509 / Virus Database: 306 - Release Date: 12/08/2003