Este fórum está sendo desativado

[EdersonFarias]

Olá caros amigos, alguém pode me ajudar urgente com isso ???

Criei uma macro (abaixo), onde:

1º - Através da informação de uma célula, CRIO O SUB-DIRETÓRIO com o nome da célula --- OK, Funcionando!!
2º - Através da informação de outra célula, SALVO O ARQUIVO com o nome da célula --- OK, Funcionando!!

Agora não sei como salvar ou mover esse arquivo novo (onde acabei de dar o nome) para esse diretório (que não existia)..

Vejam a macro:

' Criar a pasta
Dim PASTA As Range
Dim maxRows, maxCols, r, c As Integer
Range("B10").Select
Set PASTA = Selection
maxRows = PASTA.Rows.Count
maxCols = PASTA.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & PASTA(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & PASTA(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c


' Salvar na pasta

Dim Nome As String
Nome = Worksheets(1).Range("q3")

ActiveWorkbook.SaveAs Filename:="C:\Users\Eder\Desktop\Teste\" & Range("q3").Value & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False