Here is what I'm trying to do: **Cell B2: Start Date** and **Cell B3: End Date**

Example:   

B2 --> 01/01/2019   

B3 --> 01/05/2019

Example

[![enter image description here](https://i.stack.imgur.com/cIMyb.png)](https://i.stack.imgur.com/cIMyb.png)

Here is my code so far:

```
Sub GetUniqueMonths()

Dim StartDate As Date, EndDate As Date

With ThisWorkbook.Sheets("Foglio1") 'remember to fully qualify your ranges, including the workbook
    StartDate = .Range("B2")
    EndDate = .Range("B3")
End With

Dim StartWeek As String, EndWeek As String
StartWeek = MonthName(Month(StartDate))
EndWeek = MonthName(Month(EndDate))

Dim arr() As String
Dim i As Long
ReDim arr(StartWeek To EndWeek)
For i = StartWeek To EndWeek
    arr(i) = i
Next

End Sub

```

I would like to loop thought the given two dates: **01/01/2019** and **01/05/2019** get the month names and put them in the array **arr**, but all I get it's an error --> **type mismatch** on `ReDim arr(StartWeek To EndWeek)`, any suggestions?

My output would be **arr(January, February, March, April, May)**