I think I managed to find a solution for this, so if anyone is interested, here's my solution:


Private Sub ComboBox1_DropButtonClick()

ComboBox1.List = Array("1", "2", "3")

If ComboBox1.Value = "1" Then
Bookmarks("Text1").Range.Font.Hidden = False
Bookmarks("Text2").Range.Font.Hidden = True
Bookmarks("Text3").Range.Font.Hidden = True
End If

If ComboBox1.Value = "2" Then
Bookmarks("Text1").Range.Font.Hidden = True
Bookmarks("Text2").Range.Font.Hidden = False
Bookmarks("Text3").Range.Font.Hidden = True
End If

If ComboBox1.Value = "3" Then
Bookmarks("Text1").Range.Font.Hidden = True
Bookmarks("Text2").Range.Font.Hidden = True
Bookmarks("Text3").Range.Font.Hidden = False
End If

End Sub