>*.. >With ox.ActiveWorkbook > Local array aSheetNames[.Sheets.Count] > For ix=1 to .Sheets.Count > aSheetNames[ix] = .Sheets(ix).Name > EndFor >endwith >