Zoom to used range

[gibbo1715]

is it possible to set the zoom to the used range?

[mdmackillop]

A liitle simpler

Sub ZoomUR()
    Dim Tmp As String
    Tmp = ActiveCell.Address
    ActiveSheet.UsedRange.Select
    ActiveWindow.Zoom = True
    Range(Tmp).Select
End Sub

[gibbo1715]

Thanks had a feeling you d be able to answer my question

[mdmackillop]

It occurred to me how useful this function is, so here's a toggle version between 100 and the used range.

Sub ZoomUR()
Dim Tmp As String
If ActiveWindow.Zoom <> 100 Then
ActiveWindow.Zoom = 100
Else
Tmp = ActiveCell.Address
ActiveSheet.UsedRange.Select
ActiveWindow.Zoom = True
Range(Tmp).Select
End If
End Sub