One way:

Option Explicit
Sub testme01()
Dim myArr() As String
Dim iCtr As Long

With ActiveWorkbook
ReDim myArr(1 To .Worksheets.Count)
For iCtr = 1 To .Worksheets.Count
myArr(iCtr) = .Worksheets(iCtr).Name
Next iCtr
End With

End Sub

Steve wrote:

I would like to get the tab names in a worksheet into an array. How do I
program this?

--

Dave Peterson