Este fórum está sendo desativado

[JoaoMR]

Olá
Estou desenvolvendo uma pasta de trabalho para gerar um PDF com uma proposta de projeto a ser apresentada para o cliente.
Toda a parte de linkagem e concatenação de textos e fórmulas foi feita com sucesso. (exceto a formatação do PDF, que ainda tem erros mas é assunto para outro post).
No entanto, criei uma macro para gerar o pdf automáticamente e salvá-lo numa pasta destino, conforme o código a seguir:

Sub Gerar_Proposta_1()
'
' Gerar_Proposta_1 Macro
'

'
Sheets(Array("CAPA", "página 2", "página 3", "página 4", "página 5", "página 6", _
"página 7", "página 8", "página 9", "página 10", "página 11")).Select
Sheets("CAPA").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\João Morelli Ribeiro\Desktop\Proposta automática\Gerador de Propostas\Propostas.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub


Acontece que eu queria que esse pdf fosse salvo diretamente na pasta "Propostas" com o nome do cliente, presente na célula C8 da pasta "1 - Dimensionamento". Eis que refiz a programação em cima da macro, da seguinte forma:

Sub Gerar_Proposta_1()
'
' Gerar_Proposta_1 Macro

Dim Nome as string
Nome = Worksheet("1 - Dimensionamento").Range("C8").Value

'
Sheets(Array("CAPA", "página 2", "página 3", "página 4", "página 5", "página 6", _
"página 7", "página 8", "página 9", "página 10", "página 11")).Select
Sheets("CAPA").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\João Morelli Ribeiro\Desktop\Proposta automática\Gerador de Propostas\Propostas\" & Nome & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

No entanto, o seguinte erro é acusado:

Erro de Compilação
'Sub' ou 'Function' não definida

A depuração acusa a primeira linha (Sub Gerar_Proposta_1 ())
e destaca a Worksheet em azul (sendo que o nome dela é esse mesmo....

Alguém sabe como me ajudar?
Obrigado desde já.

[osvaldomp]

Acrescente o "s" conforme em vermelho abaixo.

Nome = Worksheets("1 - Dimensionamento").Range("C8").Value

ou

Nome =Sheets("1 - Dimensionamento").Range("C8").Value