Zoom to used range

[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