Zoom to used range

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

A liitle simpler

Code:

---

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

---

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

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

Code:

---

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

---