How to insert multiple sheets using vba array

How to insert multiple sheets using vba array

Sub InsertSheetUsingarray()

Dim arrSheetCreate(11) As String
Dim i As Integer
Dim lrow As Integer

lrow = Sheet1.Cells(Rows.Count, "E").End(xlUp).Row - 1

For i = 0 To lrow

arrSheetCreate(i) = Sheet1.Range("E" & i + 1).Value
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = arrSheetCreate(i)
ActiveSheet.Tab.Color = vbGreen

Next i

End Sub