Creación de hojas con el nombre de una celda de la hoja plantilla

Yo creo que con esta macro es suficiente. Crea un módulo e insértala en él.

Sub VerificarCrearHoja()
Dim i As Integer, existe As Boolean, nombre As String
existe = False
nombre = Sheets("plantilla").[c5]
If nombre <> "" Then
   For i = 1 To Sheets.Count
      If Sheets(i).Name = nombre Then
         existe = True
         Sheets(i).Activate
         Exit For
      End If
   Next i
   If Not existe Then
      ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count) 
      ActiveSheet.Name = nombre
   End If
End If
End Sub

Pruébala para ver si es lo que querías, si hace falta algo más dímelo.