Hi

The code below enlarge the selected cell in column A. Change the column
number as desired.

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

Regards
Per

"Shazi" skrev i meddelelsen
...

Hi,

I made one telephone directory in Sheet1, all cells are set to
Arial=10 size.

but I want to increase font size when I click on the phone number in
any cell for easy viewing. if its possible. pls send me the worksheet
event for that.

Best regards.


Shahzad Zafar
Madinah