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