Soucis Syntaxe pour Chemin dans Cellule

Sub FolderHidden()
'Si le dossier n'existe pas, une erreur 76 (Chemin d'accès introuvable) sera levée. Elle doit être traitée.
On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oFld As Folder
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject

'Accède au dossier
[COLOR="Red"]Set oFld = oFSO.GetFolder([A1])'<<<<Ici a la place de [A1],je voudrais noter le Chemin de ma cellule Feuil1 Cellule A1 cellulle ou ce trouve le nom de mon chemin[/COLOR]
 If UserForm1.OptionButtonrep = True Then
'Teste si le dossier est caché et en lecture seule
If oFld.Attributes And (Hidden + ReadOnly) Then
MsgBox "Caché et en lecture seule"
Else
MsgBox "Fichier normal"
End If
ElseIf UserForm1.OptionButtonHidden = True Then
'cache le dossier
 oFld.Attributes = oFld.Attributes - Hidden
MsgBox "Dossier Caché"
ElseIf UserForm1.OptionButtonNormal = True Then
'affiche le dossier
If oFld.Attributes And Hidden Then
 oFld.Attributes = oFld.Attributes - Hidden
End If
MsgBox "Dossier Affiché"

End If
fin:
    Exit Sub  
err:
    'Gestion de l'erreur 76
    If err.Number = 76 Then
        MsgBox "Ce dossier n'existe pas"
    Else
        MsgBox "Erreur inconnue"
    End If
    Resume fin
End Sub