VB coding needed

[RSEKAR]

Dear Sir,
I have excel sheet named “ALL”. The sheet contains mostly numerical data. I find difficult in reading the numerical data with decimals in the cell. I do not want to magnify the whole sheet. I need the cell which is selected the data should be magnified to font size 13 (original font size in the sheet is 9)

Thanking you in advance,
RSEKAR

 

[VoG]

Dear Sir,
I have a problem in using your coding. Normally using a macro I copy data from other sheet and paste special value to this sheet named “ALL” where I use your coding. With your coding I am not able to use the macro to copy data to ALL sheet. The macro stops in the middle with error message. Without your coding the macro copy and paste to the ALL sheet with out any problem. Kindly suggest how I should run my macro with your coding in “ALL” sheet.
I use excel 2002.
Thanking you once again.
RSEKAR

Sub copy()
    Sheet2.Select
    Range("A10:H25").Select
    Selection.copy
    Sheets("ALL").Select
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C28").Select
    Application.CutCopyMode = False
   
End Sub

Try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Me.UsedRange.Font.Size = 9
If Target.Column <> 5 Then Exit Sub
Target.Font.Size = 13
End Sub