O codigo é simples mas pra funcionar corretamente sugiro que vc poste sua planilha com o formulario para o codigo correto.

Sub NovoArquivo()

Dim Arq        As String
Dim W          As Worksheet


Set W = Sheets("Modelo")
   
    Arq = Range("A1").value
    W.Copy 
    
 'Salva o arquivo na pasta clientes altere conforme sua necessidade
ChDir "C:Clientes"
'Não esquecer de modificar aqui tambem
ActiveWorkbook.SaveAs Filename:= _
"C:Clientes" & Arq & ".xlsx"
ActiveWorkbook.Close
        
End Sub

De forma grosseira isso cria um novo arquivo e salva na pasta clientes em C: com base no valor da celula A1, se nao conseguir ajustar faça o que disse acima.

Veja este exemplo: Cria uma nova "Pasta de trabalho" com extensão xlsx com o nome inserido na textBox com os dados da aba "Modelo".
A rotina ainda verifica se ja existe a pasta "produto" e cria no mesmo diretorio da Planilha.

Muito obrigado!
sua dica ajudou bastante! Valeu mesmo!
Obrigado!