RowSource verursacht Fehler

Ich hab in Tabelle2 eine Combobox und möchte darin Daten aus Tabelle1 anzeigen.
Kann mir jemand sagen was an diesem Code falsch ist?

Private Sub Worksheet_Activate()
With Tabelle2.ComboBox1
.ColumnCount = 3
.ColumnWidths = "50;0;0"
.RowSource = "Tabelle1!A2:C4"
End With
End Sub

Bei .Rowsource tritt ein "Laufzeitfehler 438" auf.
Hoffe jemand hat nen Tipp für mich.
Danke schon mal
Gruß
Andreas