Usando un Userform para copiar un determinado gráfico. ¿Qué falta?

El usuario hará clic en un botón. Entonces, se abrirá el UserForm, donde elegirá el tipo de gráfico que desea (en este caso, punto, línea o barra) a través de un menú desplegable. Luego, hace clic en el botón en la parte inferior del UserForm. El siguiente código debería ejecutarse y copiar el gráfico deseado.

Hasta ahora, el siguiente código no ha funcionado, pero no puedo descubrir por qué.

Sub BTN1_Click()

Select Case True

    Case SelectGraph = Punto
        Worksheets("Tabelle2").ChartObjects(1).Activate
        ActiveChart.ChartArea.Copy
        Worksheets("Tabelle1").Paste Destination:=Worksheets("Tabelle1").Range("F4")

    Case SelectGraph = Barra
        Worksheets("Tabelle2").ChartObjects(2).Activate
        ActiveChart.ChartArea.Copy
        Worksheets("Tabelle1").Paste Destination:=Worksheets("Tabelle1").Range("F4")

    Case SelectGraph = Línea
        Worksheets("Tabelle2").ChartObjects(3).Activate
        ActiveChart.ChartArea.Copy
        Worksheets("Tabelle1").Paste Destination:=Worksheets("Tabelle1").Range("F4")

End Select

End Sub

También estoy abierto a alternativas.

¡Gracias por tu ayuda!