Hi Johan,

this is just a sample and needs some edit but it works

Function OpenDWG() As String
Dim F As FileDialog
Set F = Application.FileDialog(msoFileDialogOpen)
Dim Fdf As FileDialogFilter
With F
.Filters.Clear
.Filters.Add "ACAD file", "*.dwg"
If .Show = -1 Then
OpenDWG = F.SelectedItems(1)
Else
End If
End With

End Function