Change font size based on value of a cell

  • Thread starter Thread starter MichaelRLanier
  • Start date Start date
M

MichaelRLanier

If the value of A1>0, I need the font size in a merged cell to change
from the default 10 to 16. It needs to return to the default size
when A1 returns to a value of 0. Can someone help with this? Thanks.

Michael
 
Here's a little macro that will do it.......

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("a1").Value = 0 Then
Range("B1:E3").Font.Size = 10
Else
Range("B1:E3").Font.Size = 16
End If
Range("B1").Select
End Sub

Vaya con Dios,
Chuck, CABGx3
 
Back
Top