Sub Test() Const sx As Long = 4 Const sy As Long = 8 Dim i As Long Dim px As Double, py As Double px = ActivePage.SizeWidth py = ActivePage.SizeHeight For i = 0 To sx ActiveLayer.CreateGuide i * px / sx, 0, i * px / sx, py Next i For i = 0 To sy ActiveLayer.CreateGuide 0, i * py / sy, px, i * py / sy Next iEnd Sub