make a little sub that will ask that

Sub NameCorrect(CellContent As String)
On Error Resume Next
ActiveSheet.Name = CellContent
Do While Err.Number 0
NewName = InputBox("Name not correct, enter new one")
Err.Clear
ActiveSheet.Name = NewName
Loop
End Sub