Boa tarde!!

Caso não consiga uma resposta satisfatória, poste seu arquivo modelo compactado!!

Att

Boa tarde alexandre,

Coloquei em anexo apenas o arquivo com os códigos.

Eu estou tentando aos poucos deixar meus macros mais simples e dinâmico.

Queria declarar uma variável constante.

Pois, eu estou declarando a variável e no código eu tenho que colocar:

Variavel = Range("A1")
ou
Variavel2 = Environ("Username")

Já queria deixar ela definida isso ao declarar.

Vi um outro código que você me ajudou, tentei adaptar mas não tive sucesso.

Colocando "Global Const x As String: Environ("Username")

Obrigado

Boa tarde!!

Porém esta dando erro.

Alguém ajuda? Deve algo bem simples que estou fazendo errado.

Considerando sua dúvida e o arquivo postado, você está tendo algum erro?

Pois ao verificar seu arquivo eu não tive problemas...(talvez a ausência de alguma rotina do arquivo real, esteja afetando e ajudando em gerar o erro)

Att

No arquivo postado está tudo ok.

Como falei,

Queria deixar algo assim:

Global NomeArquivo As String: Range("A1")

e

Global Const User As String = Environ("Username")

Quando coloco isso dá erro.

Voce não pode atribuir um valor "variavel" a uma Constante,
Sua declaração deveria ser :
Global Const NomeArquivo as string = "TESTE"
Se deseja atribuir uma variavel experimente algo do tipo:
Public (ou Global) NomeArquivo as String
em um procedimento
Set NomeArquivo = sheets(1).range("A1")

Existe a possibilidade de deixar na mesma linha da declaração?

Está dando erro.

Global NomeArquivo As String: Set NomeArquivo = Range("A1")

Pelo que eu conheço, infelizmente não