The Andrew N. Wiggins Consultancy

Contact me at webmaster@anw.biz

Experimental Site

This site designed by Byg Software Ltd

021

Sub Sync_On()
   'Enables horizontal and vertical window synchronization
   Application.Windows.Arrange arrangestyle:=xlTiled, _
   ActiveWorkbook:=True, synchorizontal:=True, syncvertical:=True
End Sub

Sub Sync_Off()
   'Disables horizontal and vertical window synchronization
   Application.Windows.Arrange arrangestyle:=xlTiled, _
   ActiveWorkbook:=True, synchorizontal:=False, syncvertical:=False
End Sub