Enlarge font & change color when cell is selected

[MichaelRLanier]

I need to make a range of cells increase their font size when
selected. I found the following macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns(1).Font.Size = 10
If Target.Column = 1 Then
Target.Font.Size = 15
End If
End Sub

This works great for a single column, but I need 10 columns. Also, if
I wanted a color when the cell is selected, how would these be
written? Thank you for your help.

 

[Joel]

You need the for loop in the code below if you are copying and pasting morre
than one cell

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cell In Target
If cell.Columns <= 10 Then
cell.Font.Size = 15
cell.Interior.ColorIndex = 5
Else
cell.Font.Size = 10
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub

 

[Ranjit kurian]

Hi Michael

If you want to change the font size and color only when you select, and
bring it back when the cell in not selected, then try the below


Dim LastFontSize As Long
Dim LastColorIndex As Long
Dim LastVisitedCell As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Len(LastVisitedCell) > 0 Then
Range(LastVisitedCell).Interior.ColorIndex = LastColorIndex
Range(LastVisitedCell).Font.Size = LastFontSize
End If
LastColorIndex = Target.Interior.ColorIndex
LastFontSize = Target.Font.Size
Target.Interior.ColorIndex = 8
With Selection.Font
.Name = "Arial"
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Application.ScreenUpdating = True
LastVisitedCell = Target.Address
End Sub

 

[MichaelRLanier]

Thank you for your kind help. I will be trying out both suggestions
shortly. Thanks again.

Michael