Error 424 en tiempo de ejecución

Hola Amigos, me sale este error al ejecutar este código que me encontré en la web:

Sub Auto_Open()
'creo una variable del tipo Disco:
Dim EsteDisco As Drive
Dim RutaSO As String
Dim Serial
'veamos donde está el directorio del sistema:
RutaSO = Environ("windir")
'y tomemos los primeros tres caracteres, que corresponden a la
'letra del disco:
RutaSO = Left(RutaSO, 3)
'estar siempre leyendo la unidad principal de la pc:
Set EsteDisco = FSO.GetDrive(RutaSO)
Serial = EsteDisco.SerialNumber
'si la celda está vacía, el archivo se abre por primera vez:
If Sheets("xxx").Range("A1").Value = "" Then
'entonces guardo el nro de serie del disco
Sheets("xxx").Range("a1").Value = Serial
Else
If Sheets("xxx").Range("a1").Value <> Serial Then
'aviso
MsgBox "Ud no está autorizado a leer este archivo", vbCritical
'y me voy, sin guardar los cambios:
ActiveWorkbook.Close xlDoNotSaveChanges
Else
'si los números coinciden, hago visible la hoja en donde,
'hipotéticamente, tengo el menú de acceso a todas mis
'funciones:
Sheets("Inicio").Visible = True
Sheets("Inicio").Select
End If
End If
'destruyo los objetos, para liberar los recursos del sistema
Set FSO = Nothing
Set EsteDisco = Nothing
End Sub

Cuando depuro me sale el problema en la siguiente linea:

Set EsteDisco = FSO.GetDrive(RutaSO)

Gracias por su Apoyo,

Mangel