Sub MonthNames() Dim varMonth As Variant varMonth = Array("Jan", "Feb", "Mar", "Apr") Debug.Print varMonth(1) Debug.Print varMonth(2) End Sub