UDF verschiedene Bereiche ändern

unten angegebene Funktion habe ich definiert und in der Celle B3 stehen =Scharnier(B1). In den einzelnen Case Abschnitten möchte ich aber auch andere Bereich der Tabelle ändern, z.B. Range("B4").Value = c. Das funktioniert aber nicht.

Hat jemand eine Lösung?

Viele Grüße
Rolf

Function Scharnier(b)
' b = Kastenbreite
' a = Abstand zum Rand
' c = Abstand zwischen den Scharnieren

Dim a
Dim c

a = Range("B2").Value

Select Case b

Case 1 To 800
c = b - 2 * a
Scharnier = c

Case 801 To 1350
c = (b - 2 * a) / 2
Scharnier = c

Case 1351 To 1800
c = (b - 2 * a) / 3
Scharnier = c

Case Else
MsgBox ("Kastenbreite |" & b & "| ist nicht definiert")

End Select

End Function