(VBA) Restrict Array Entry

In column A I have Dates

January till....

The code below count the number of months and then should create only, this amount of new tabs (based on monthlist array)

So if I had Dates from January till October it should create only 10 new sheets.

So far is entering all of them. I know I'm missing a loop somewhere

Code:
Sub AddSheets()
Dim lmax As Long
Dim lmin As Long
Dim lmonth As Integer
Dim cc As Integer

monthlist = Array("jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec")

[Code] ..........