Bruger defineret Funktioner

Hej,
Jeg har problemer en funktion jeg har lavet.
Det jeg gerne vil have min funktion til er at returnere den beregnet værdi og samtidig sætte et tal i en anden celle.

Lige nu kan jeg kun den ene ting:
Function nummer1()
Set test = Range("a1")
Makro1
nummer1 = 55
End Function

Private Sub Makro1()
test.Value = 5
End Sub

Hvis jeg trykker play i editoren så bliver A1 sat til 5.

Hvis jeg kalder funktionen fra en celle fremkommer #VÆRDI!
og A1 ændrer sig ikke.
Hvis jeg fjerner reference til Makro1, når jeg kalder funktionen fra celle, får cellen værdien 55, som den skal.

Er det muligt ved kald fra celle både at få funktionsværdien 55 og sat A1 til 5?

Tak for hjælpen