FileDialog 429 Error

[NVSG]

The following code is throwing a 429 error when opening the selected document (code in red). How do I correct this?

Dim f As Object
Dim FileName As String
 
Set fd = Application.FileDialog(1)
 
Dim FileChosen As Integer
FileChosen = fd.Show
 
If FileChosen <> -1 Then
 
MsgBox "No file opened"
 
Else
 
FileName = fd.SelectedItems(1)
[COLOR="Red"]Documents.Open (FileName)[/COLOR]
 
End If     
 
    
Do other stuff...
 
End Sub

 

[PeterF]

The error is because Documents works only on a container and there is none set in your code.
What are you trying to do?
Opening the file, try:

Application.FollowHyperling(Filename)