[make a square cell grid] constructs a grid mad of square cells e.g. graph paper #vba, #excel

squareCells.bas

Sub MakeSquareCells()
'// Create graph paper in Excel see http://www.erlandsendata.no/english/index.php?d=envbawssetrowcol
'if you want cm or inches
Dim noOfColumns As Integer, squareSide As Integer, i As Integer
noOfColumns = Application.InputBox(Prompt:="Select number of columns for grid (from column A:)", _
	Title:="Square Grid Maker", Default:=1, Type:=1)
squareSide = Application.InputBox(Prompt:="Select width (mm:", _
	Title:="Square Grid Maker", Default:=1, Type:=1)
Application.ScreenUpdating = False
With Activesheet
'for columns
For i = 1 To noOfColumns
.Columns(i).ColumnWidth = squareSide
Next i
'fix rows
For i = 1 Te noOfColumns
.Rows(i).EntireRow.RowHeight = .Cells(i).width
Next i
End With
Application.ScreenUpdating= True
End Sub