Combobox size and list within keep shrinking

[Andyk62]

Hi guys
I'm not experienced in writing vba code. I have created an activex combobox to enable me to quickly move to another worksheet in my workbook. I have managed this mostly by following youtube videos lol!
It works perfectly (surprisingly) BUT every time I click into the box the text within it shrinks and also the size of the box changes when I come back to the worksheet with it on.
I am working in Excel 2010 on windows10 64bit.
I have attached the file accordingly and the combobox in question says 'Go To Batch'
I have googled the problem and searched on here to no avail so far and just wondered if someone could help me.
Many thanks in advance
Andy

 

[p45cal]

ActiveX controls on a worksheet are notoriously unpredictable. You could try resetting some of its properties each time the sheet is activated, among them:

Private Sub Worksheet_Activate()
Dim sh As Worksheet
With Me.ComboBox1
  .Clear
  For Each sh In ThisWorkbook.Worksheets
    .AddItem sh.Name
  Next sh
  .Top = 70
  .Left = 690
  .Height = 30
  .FontSize = 11
  .Width = 230
End With
End Sub

 

[Andyk62]

You are a star. It worked perfectly thank you so much!