Magnify /Zoom sellectecd cell

[BENSON]

I once saw a code that would magnify/zoom any cell when clicked on .Can any one help me .

Thanks

[mdmackillop]

How about Magnifier in Windows Accessibility?

[anandbohra]

hi this is worksheet code event so put this in appropriate worksheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:a10")) Is Nothing Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 150
End If
End Sub

[BENSON]

Thanks for the code its a start ,however the code I once saw only magnified the particular cell and not the whole row or spread sheet.

Thanks

[johnske]

Option Explicit
Sub ZoomIn()
On Error GoTo Finish
With ActiveSheet
With Selection
.CopyPicture xlScreen, xlBitmap
.PasteSpecial
End With
.Shapes(1).Select
With Selection.ShapeRange
.ScaleWidth 1.75, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.75, msoFalse, msoScaleFromTopLeft
End With
Application.ScreenUpdating = True
Prompt:
If MsgBox("Finished viewing?", vbYesNo, "Delete Picture?") = vbYes Then
Selection.Cut
Else
GoTo Prompt
End If
End With
Finish:
End Sub