Sub Macro1()

    ActiveWorkbook.SaveAs Filename:="C:UsersANDERSONDesktop" & Range("Y3").Value & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Olá amigo! Agradeço muito sua contribuição, entretanto, necessito de uma macro que dê ao usuário a escolha de onde quer salvar o arquivo.

A planilha em questão será utilizada por varias pessoas e em inumeros computadores diferentes, por isso, essa parte da macro "C:UsersANDERSONDesktop" não permite a macro ser executada em outros computadores que não seja o meu, pois está endereçada para um caminho especifico do meu usuário do windows.

Ainda assim, se puderem ajudar, agradecerei muito. Estou realmente precisando.

Sub Localizar_Caminho()

Dim strCaminho As String

With Application.FileDialog(msoFileDialogFolderPicker)

'Permitir mais de uma pasta
.AllowMultiSelect = False

'Mostrar janela
.Show

If .SelectedItems.Count > 0 Then
strCaminho = .SelectedItems(1)
 ActiveWorkbook.SaveAs Filename:=strCaminho & "" & Range("Y3").Value & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If

End With



End Sub