Salut,
avec sélection préalable des cellules qui contiennent les futurs noms: (ne ressemblant pas à des noms de colonnes a, b , c ou date , etc...)
Option Explicit
Sub nommer()
Dim cell
For Each cell In Selection
Sheets.Add
ActiveSheet.Name = cell.Value
Next
End Sub