**Increase Font Size for Selected Cell**
Hi,
Maybe this
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myrange As Range
Set myrange = UsedRange
myrange.Font.Size = 10
myrange.Interior.ColorIndex = xlNone
Target.Font.Size = 15
Target.Interior.ColorIndex = 42
End Sub
Mike
"Shazi" wrote:
Hi,
I want to make one Button to increase the Font Size for the Selected
Cells in worksheet. I made a macro but it increasing the Font only for
"X9" cell.
Can I make one Tougle button for Zoom In and Zoom Out for the Selected
Cell.
if it possible pls help me.
Sub ZOOM()
Range("X9").Select
With Selection.Font
.Name = "Arial"
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 42
.Pattern = xlSolid
End With
End Sub
Regards
shahzad
|