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.