Hello,
I am using Excel 2010 and I am trying to add an OnChange Event onto the sheet where I need to increase the font size. The cell R29 (merged cell extends to V29) holds an email address and once a user supplies the value it reduces the font size to 6. To compensate for this I added the following code. the code is not working as the font size remains 6. Any clues on what I am doing wrong? Thanks for your help in advance.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$R$29" Then
Range("R29").Select
With Selection.Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End If
End Sub
I am using Excel 2010 and I am trying to add an OnChange Event onto the sheet where I need to increase the font size. The cell R29 (merged cell extends to V29) holds an email address and once a user supplies the value it reduces the font size to 6. To compensate for this I added the following code. the code is not working as the font size remains 6. Any clues on what I am doing wrong? Thanks for your help in advance.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$R$29" Then
Range("R29").Select
With Selection.Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End If
End Sub