fitting a page [Excel macro]

option explicit

sub fit_page()

  dim x as long
  dim y as long
  for x = 1 to 20
     columns(x).columnWidth = 6
     for y = 1 to 100
         cells(y,x) = x*y
     next y
   next x

  activeSheet.pageSetup.zoom           = false
  activeSheet.pageSetup.fitToPageSWide = 1
  activeSheet.pageSetup.fitToPageSTall = false

end sub