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