A chamada no código "funcaoteste" esta errada, faça assim:

Public Function funcaoTeste(mensagem1, mensagem2, mensagem3)

UserForm1.TextBox1.Text = Sheets("Plan1").Range("H2").Value
UserForm1.TextBox2.Text = Sheets("Plan1").Range("H3").Value
UserForm1.TextBox3.Text = Sheets("Plan1").Range("H4").Value

End Function

boobymcgee obrigado pela resposta,
Mas a intenção é poder modificar o Range de acordo com o que eu alterar na chamada da função. Por exemplo:
- Como no exemplo textbox1, 2 e 3 com valores de H2, H3 e H4
- Em um outro caso se eu quiser atribuir ao textbox1, 2 e 3 os valores de outras células, modificar apenas mensagem1, mensagem2 e mensagem3 na chamada da função, sem ter que alterar na função em si.

Nesse caso é só alterar o valor das células "H2, H3 e H4", ou seja, ao invés de estar escrito mensagem1, mensagem2 e mensagem3 você indicar a célula alvo, por exemplo na "H2" colocar "=L11" na "H3" = "M15" e na "H4" = "P55", que vai puxar o valor destas células.

Boa noite meu caro,
Acho que demonstrei de forma errônea meu problema
Abaixo vou anexar um novo exemplo.
Com muitos dados eu gostaria de manter um function e alterar apenas as variáveis. Segue abaixo:

Opa, nesse caso não sei como pode fazer.

Bom dia pessoal. Alguém pra auxiliar? Obrigado

Ao invés de:
UserForm1.TextBox1.Text = Sheets("Plan1").mensagem1.Value

Mude para
UserForm1.TextBox1.Text = mensagem1

e assim por diante.

Entretanto, conceitualmente vc não está fazendo um correto uso de uma Function. Na verdade isso que vc fez é pra ser uma Sub, não uma Function.

Uma Function retorna um valor para o nome dela mesma, embora não seja obrigatório. Então, em algum ponto dentro de uma Function, há pelo menos uma linha dando a ela algum valor. Ex.:

Function Teste(x,y)
'blá, blá, blá
'blá, blá, blá
Teste = x * y -2 *x
'blá, blá, blá
End Function

Dentro de outras Subs (ou outras Functions), essa Function aparecerá geralmente sendo usada do lado direito de alguma igualdade. Ex:

Sub Principal()
Dim Valor1, Valor2
'blá, blá, blá
'blá, blá, blá
Valor1 = Teste(3,8)
Valor2 = Teste(1,1)
'blá, blá, blá
End Sub

Se não ficou claro, retorne.

Bom dia EdsonBr,

reformulei meu código e fiz algumas alterações intuitivamente e consegui resolver meu problema.
Se alguém mais tiver alguma dúvida semelhante estou postando o novo arquivo com a resolução da maneira que eu queria.
Abraço a todos e obrigado pelas sugestões que foram postadas ao longo do tópico.