I have the following procedure to view the selected cell bigger size,
when I move my cursor I need Font to be changed from 10 size to 18
size.
I made the below procedure.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False

Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 8

With Selection.Font
.Name = "Arial"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Application.ScreenUpdating = True

End Sub


The problem is this when I move the curssor it Increase the size of
Font from 10 to 18, and It should be 10 size when I move to next
cell...

I hope you understand what I mean.

Pls send me reply, how it will be possible.

Regards.

Shahzad Zafar
Madinah