On Mar 1, 11:01 am, Jalin wrote:
Dear Mr Robinson

Thanks very much for your help. Yes there is. It is some code for
application.goto.

Private Sub ComboBox1_Click()
n = Cells(7, 6)
Select Case n
Case 1
Application.Goto Reference:=Worksheets("OB Input").Range("d36"), _
Scroll:=True
....
...



"Jalin" wrote:
May I have some expert advice on hy Combobox font size shrinks with each
click pls.

Many thanks in advance- Hide quoted text -

- Show quoted text -

Hi
I thought some code might be changing the Font.Size property in the
combobox, but that is not in your code.
If the Excel file is not sensitive you can send it to me and I'll have
a look.
regards
Paul