Make new sheets according list names

hello
i have a names list in range P2:P100
like
P2 = A
P3 = B
P4 = C
P5 = D
P6 = E
P7 = F

then create the sheets with name A, B, C, D, E, F

THANX

Got the solution

Sub AddMonthlySheets()
    Dim mMonth As Range
    For Each mMonth In Sheets(1).Range("P2:P100")
        ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Application.WorksheetFunction.Text(mMonth.Value, mMonth.NumberFormat)
    Next
End Sub