VBA Excel y crear hojas de calculo

[buddyk9]

Tengo un problema con un script, en el cual, entre otras cosas, quiero ver si existe una hoja de cálculo que se llame como el valor que toma mi variable (expediente), que puede tomar varios valores. Si no hay una hoja que se llame igual, quiero que cree una hoja nueva y que se llame como el valor de la variable expediente.

He probado con esta subrutina, pero no me funciona bien, porque me crea muchas hojas.

Alguien me podría ayudar?

Gracias


Sub Crearhojas()
Dim WS_Count As Integer

Dim I As Integer
Dim expediente As String
expediente = "Hoja_3"

WS_Count = ActiveWorkbook.Worksheets.Count

For I = 1 To WS_Count

If expediente = ActiveWorkbook.Worksheets(I).Name Then
MsgBox ActiveWorkbook.Worksheets(I).Name

Else
Set NewSheet = Worksheets.Add
NewSheet.Name = "expediente_2"
End If
Next I
End Sub