excel spreadsheet formatting

[frankief]

Received a spreadsheet which is a bit uneasy on the eye, in that there is no break between rows.
To insert a blank row between each line of text, I can click each individually and then 'insert row' but this is labourious.
Is there a quick way of formatting the whole sheet? And can I make the blank rows a different height from text rows?

[beso]

Why not just increase the height of all the existing rows to get more whitespace between the the entries?

[frankief]

Could do but there are several different row heights.

[Bushwhacker]

Go to the Tools dropdown menu.

Select Macro then Select Macros.

From the Macros In: dropdown - select This Workbook

In the Macro name: box - give your macro the name of InsertRow

Now click the Create button - this will open a Visual Basic Module.

You will see that the module has the following in it :

Sub InsertRow()

End Sub

Delete these and Copy and Paste the code below into the module :

Sub InsertRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
Rows(i).EntireRow.Insert shift:=xlShiftDown
Next i
End Sub



Now go to the File dropdown menu and select Close and Return to Microsoft Excel. This will take you back to your worksheet.

Now go to the Tools dropdown menu, select Macro, then select Macros.

You will see your macro InsertRows highlighted - so just click Run.

That should do the trick for you.

BW