Crear hoja desde VB

Question

Public Sub addsheet()

sheets.Add

Activesheet.Name = "HojaXYZ"

End Sub

Asi crearia una hoja ,, PERO lo ke kiero es crear una hoja con el nombre ke kiero,,, mas o menos para entender

Public Sub addsheet(HojaXYZ as string)

End Sub

y que la funcion me sirva para crear todas las hojas que quiero