Use a função abaixo:

Public Function BUSCAR_NOME() As String
    With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Diz aê onde salvar"
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count = 1 Then
            BUSCAR_NOME = .SelectedItems(1)
        End If
    End With
End Function

Se tiver dúvida de como usar, chame-a assim no seu código:

Public Sub ROTINA_QUALQUER()
Dim NOME As String
    
    NOME = BUSCAR_NOME()
    
End Sub

Obrigado Fernando, deu certo!