This should do it...
Code
-------------------
Dim strSheet() as String
Dim i As Long
Dim w AS Worksheet
Redim strSheet(1000)
i = 0
For Each w in Worksheets
If UCase(Left(w.Name,3)) = "MKT" Then
strSheet(i) = w.Name
i = i + 1
End If
Next
Redim Preserve strSheet(i-1
-------------------
--
Message posted from
http://www.ExcelForum.com