Este fórum está sendo desativado

[luiscesardias]

Boa noite!

Estou criando uma planilha de cadastro de clientes.
Após criar o módulo com o código da programação, fiz a atribuição da macro no botão "novo" (autoforma "retangulo" inserida), mas ao fazer o teste(F5), apareceu a seguinte mensagem:

"erro em tempo de execução '9':
subscrito fora do intervalo".

Utilizei o seguinte código de programação:

Sub novo()
Dim x, código As Double
x = Sheets(BD_CLIENTE).Cells(Rows.Count, 1).End(xlUp).Row
If x = 1 Then
código = x
Else
código = Sheets(BD_CLIENTE).Cells(x, 1) + 1
End If
Sheets(CAD_CLIENTE).Range("b4") = código
Sheets(CAD_CLIENTE).Range("b6", "b8", "b10", "b12", "b14", "b16", "b18", "b20", "b22", "e10", "f8", "f14", "g16", "g18", "g20", "h12") = ""
End Sub

Alguém pode me ajudar?

Estou enviando o arquivo em anexo.

Grato!

[gfranco]

Bom dia.
Veja se atende.
Faltaram as aspas nas indicações dos nomes das planilhas.
Eu recomendo trabalhar com os codenames das planilhas e não com seus nomes mas apenas ajustei os itens que estavam dando erro.