Hi Tia,
just select cells with names of new sheets and run this:

Sub newsheets()
on error resume next
Dim ns As Worksheet
For Each ncell In Selection
Set ns = Worksheets.Add(after:=Worksheets(Worksheets.Count) )
ns.Name = ncell.Value
Next ncell
End Sub