Document select, and move

[Bob Phillips]

Try this

    With Application.FileDialog(msoFileDialogOpen)
    
        .AllowMultiSelect = False
        If .Show = -1 Then
        
            OldFilename = .SelectedItems(1)
            Name OldFilename As NewFilename
        End If
    End With