Boa tarde.

Acho que seria a solução para voce,Essa macro diminui e aumenta o tamanho da tela(Zoom).

Sub ZoomIn() ' Aumenta Tela
Dim maisZoom As Long
    maisZoom = ActiveWindow.Zoom
    maisZoom = maisZoom + 10
 
    If maisZoom <= 400 Then
        ActiveWindow.Zoom = maisZoom
    End If
End Sub
Sub ZoomOut() 'Diminui Tela
Dim menosZoom As Long
    menosZoom = ActiveWindow.Zoom
    menosZoom = menosZoom - 10
 
    If menosZoom >= 10 Then
        ActiveWindow.Zoom = menosZoom
    End If
End Sub

Abraço.

Ponga, não sei se entendi corretamente, pois primeiro comentou sobre Monitores diferentes, mas não disse qual o tamanho dos mesmos ou Resoluções das telas, e depois disse sobre um determinado range, então alem das opções citadas deixo minhas sugestões :

A Rotina no link abaixo, capta a resolução atual da tela e redimensiona conforme especificado, tem um exemplo para baixar, só precisa fazer os testes na v2007 :
Screen Resolution Check / Change
http://www.vbaexpress.com/kb/getarticle.php?kb_id=32

Neste outro link, pelo que entendi tem rotinas para aplicar zoom nas áreas determinadas :
Zooming And Centering On Cells
http://www.cpearson.com/excel/zoom.htm

Veja se ajuda, e qualquer duvida retorne.

[]s