S
Shazi
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
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