Combobox_change does not repond?

Sige,
I would assume that as you are not Changing the combo box text (typing in
the edit portion).
Try the Click event instead.

NickHK

"Sige" <[email protected]> wrote in message
news:[email protected]...
> Hi There,
>
> I load a combobox with my fonts but would like it to update my range
> "text" upon changing it ...
>
> When I "run" the sub it works!!! ... but not when I just change my
> selection.
>
> Private Sub ComboBox1_Change()
> On Error Resume Next
> ThisWorkbook.Sheets("Fonts").Range("Text").Font.Name =
> ComboBox1.Value
> End Sub
>
> Anyone?
>
> Brgds Sige
> XL97-Sr2
>

Hi Nick,
Thanks for the advice ... I tried Click & DropButtonClick.
But with the same result!

(Though, here again: When running the "sub" explicitely it works like a
charm)

Any other possible reason?

BRGDS Sige



Private Sub ComboBox1_Click()
On Error Resume Next
Sheets("Fonts").Range("Text").Font.Name = ComboBox1.Value
End Sub

Private Sub ComboBox1_DropButtonClick()
On Error Resume Next
Sheets("Fonts").Range("Text").Font.Name = ComboBox1.Value
End Sub

Sige,
Are you using the combo box from the Forms or Controls tool box ?

NickHK

"Sige" <[email protected]> wrote in message
news:[email protected]...
> Hi Nick,
> Thanks for the advice ... I tried Click & DropButtonClick.
> But with the same result!
>
> (Though, here again: When running the "sub" explicitely it works like a
> charm)
>
> Any other possible reason?
>
> BRGDS Sige
>
>
>
> Private Sub ComboBox1_Click()
> On Error Resume Next
> Sheets("Fonts").Range("Text").Font.Name = ComboBox1.Value
> End Sub
>
> Private Sub ComboBox1_DropButtonClick()
> On Error Resume Next
> Sheets("Fonts").Range("Text").Font.Name = ComboBox1.Value
> End Sub
>

Control Toolbox ... :o(