Macro para libro de excel versión 2007

Bueno hola, encontré este macro, y funciona bien, pero lo que quiero es adaptarlo a mi trabajo; el cual consiste: Primero en crear solamente las hojas mostradas y no las ocultas, y Segundo en que los libros generados conteniendo solo una hoja de la hoja principal, están en la versión 2003, y quisiera que fuesen versión 2007 o más. Gracias

Sub Crear_archivos_de_hojas()

Dim strHoja, strStartHoja, strRuta As String

Dim i As Integer

Application.ScreenUpdating = False

strStartHoja = ActiveCell.Worksheet.Name

For i = 1 To Sheets.Count

Sheets(i).Activate

strHoja = ActiveCell.Worksheet.Name

Sheets(strHoja).Copy

strRuta = "C:\Users\JAITEF\Desktop"

ActiveWorkbook.SaveAs Filename: =strRuta & "\" & strHoja, _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWindow.Close Savechanges:=True

Next

Sheets(strStartHoja).Activate

Application.ScreenUpdating=True

End Sub