VBA Excel y crear hojas de calculo

[3pies]

Prueba algo con esto. El expediente lo pasamos por un inputbox, aunque puedes tomarlo de cualquier otro sitio:

Código:

Sub Nuevahoja()
'si hay errores, que continúe
On Error Resume Next
'preguntamos cual es el expediente
hoja_de_calculo = InputBox("Introduce el expediente")
'eliminamos los caracteres raros
hoja_de_calculo = Replace(hoja_de_calculo, ":", "")
hoja_de_calculo = Replace(hoja_de_calculo, "/", "")
hoja_de_calculo = Replace(hoja_de_calculo, "\", "")
hoja_de_calculo = Replace(hoja_de_calculo, "?", "")
hoja_de_calculo = Replace(hoja_de_calculo, "*", "")
hoja_de_calculo = Replace(hoja_de_calculo, "[", "")
hoja_de_calculo = Replace(hoja_de_calculo, "]", "")
'seleccionamos la hoja
Sheets(hoja_de_calculo).Select
'si no existe esa hoja, la creamos
If ActiveSheet.Name <> hoja_de_calculo And hoja_de_calculo <> "" Then
    Sheets.Add
    ActiveSheet.Name = hoja_de_calculo
End If
End Sub