string in Zelle schreiben

ich habe in einer UserForm u1 als String definiert. Mit select case frage ich eine ComboBox nach diesem String ab. Wenn Case=true, soll ein Arbeitsblatt gewählt, und der Inhalt der Zelle A2 mit der Variablen beschrieben werden:

Select Case ComboBox1.Text
Case u1
Unload Me
Sheets("U1").Select
Cells(1, 2) = u1

Die Zelle wird aber nicht beschrieben, nur wenn ich statt

Cells(1, 2) = u1
z.B.
Cells(1, 2) = "Variable"

eingebe. Woran könnte das liegen?

Gruß
Matthias