Command Button Font just gets smaller and smaller

[eGiauque]

Hello all,

I've created a command button to run some code and each time I click on it, the font size of the Caption gets smaller and smaller.

Anyone ever seen this before or have suggestions?

Thx,
Eric

 

[macleanb]

Could the code its running be responsible?

 

[eGiauque]

I can't see why it would, which is why it's so baffling. Here's the code:

Private Sub CommandButton1_Click()
  Range("A9").Select
    Selection.Copy
    Range("B9").Select
    ActiveSheet.Paste
    
    
    Range("A9:AE9").Select
    Selection.Copy
    Range("A10:AE10").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
  Range("B9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    
    Range("A10:AE10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
    
        
          Application.CutCopyMode = False
End Sub

 

[AlphaPTD]

I can't see why it would, which is why it's so baffling. Here's the code:

Private Sub CommandButton1_Click()
  Range("A9").Select
    Selection.Copy
    Range("B9").Select
    ActiveSheet.Paste
    
    
    Range("A9:AE9").Select
    Selection.Copy
    Range("A10:AE10").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
  Range("B9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    
    Range("A10:AE10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
    
        
          Application.CutCopyMode = False
End Sub

I had a similar issue with a Combo Box. The font size kept getting smaller each time I selected an item from the Combo Box list. I have an output cell that is linked to the selection I picked from the Combo Box and once I changed the font in the linked cell to match the Combo Box, the problem went away.