How to repeat a script for all sheets within a view layout?

[LK_13]

I found a nifty script on an old post here that allows me to change all of the marker settings for each area on a single "activesheet" in a view layout. Now I want this script to repeat for ALL sheets within the view layout. Any pointers?

Dim oMyArea, oMyCurve
For Each oMyArea in View.ActiveSheet.Areas
oMyArea.Active = True
For Each oMyCurve in oMyArea.DisplayObj.Curves
oMyCurve.MarkerType ="circle"
oMyCurve.MarkerLineWidth ="min"
oMyCurve.MarkerSize =1
oMyCurve.MarkerColorAuto =true
oMyCurve.MarkerColor ="black"
oMyCurve.MarkerColorRGB =0
oMyCurve.MarkerFillColorAuto =true
oMyCurve.MarkerFillColor =""
oMyCurve.MarkerFillColorRGB =0
oMyCurve.MarkerFrequencyMode ="CalcNPoint"
oMyCurve.MarkerIntervalPoints =1
oMyCurve.MarkerIntervalLength =1
oMyCurve.MarkerAtBegin =false
oMyCurve.MarkerAtEnd =false
Next
Next
call wndshow("VIEW")

[LK_13]

I came up with this and it works. 

Dim oMySheet, oMyArea, oMyCurve
For Each oMysheet in View.Sheets
Call oMysheet.Activate
For Each oMyArea in View.ActiveSheet.Areas 
oMyArea.Active = True
For Each oMyCurve in oMyArea.DisplayObj.Curves
oMyCurve.MarkerType ="circle"
oMyCurve.MarkerLineWidth ="min"
oMyCurve.MarkerSize =1
oMyCurve.MarkerColorAuto =true
oMyCurve.MarkerColor ="black"
oMyCurve.MarkerColorRGB =0
oMyCurve.MarkerFillColorAuto =true
oMyCurve.MarkerFillColor =""
oMyCurve.MarkerFillColorRGB =0
oMyCurve.MarkerFrequencyMode ="CalcNPoint"
oMyCurve.MarkerIntervalPoints =1
oMyCurve.MarkerIntervalLength =1
oMyCurve.MarkerAtBegin =false
oMyCurve.MarkerAtEnd =false
Next
Next
Next
call wndshow("VIEW")