Laufzeitfehler '430' bei set range

Hallo Zusammen,
ich habe nun den Tag genutzt und mein aktuelles Makro Projekt auf die Verwendung einer UserForm umgebaut. Wie immer wenn man etwas umbaut, stößt man ruck zuck auf Probleme.
Zunächst einmal das Konglomerat an Code:
In DieseArbeitsmappe

Private Sub Workbook_Open()
Modul1.Initialize
End Sub

Public FT1_threshold As Integer
Public FT2_threshold As Integer
Public Type vsModel
ModelName As String
Sensors() As String
End Type
Public Models() As vsModel
Public FilteredModels() As vsModel
Public SensorsTotalNum As Integer
Public SensorsTotalNumPerc As Integer
Public SensorsTotalNumFiltered As Integer
Public chartPLRE As ChartObject
Public chartPLRP As ChartObject
Public chartPLRErange As Range
Public chartPLRPrange As Range
Sub Initialize()
FT1_threshold = 0
FT2_threshold = 0
ClearTreeView
SensorsTotalNum = 0
SensorsTotalNumPerc = 0
SensorsTotalNumFiltered =0
Set chartPLRErange = Worksheets("Report").Range("A17:Y27")
Set chartPLRPrange = Worksheets("Report").Range("A28:Y38")
PrepareGraphics
VS_Report_Form.Show vbModeless
End Sub

Laufzeitfehler '430'
Klasse unterstützt keine Automatisierung oder unterstützt erwartete Schnittstelle nicht