Great tip. If you review the automatically generated macro code, there will often appear something like this when recorded:

    Range("A1").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "My Title"
    Selection.Locked = True
    Selection.FormulaHidden = False

Since FormulaHidden = False is the default value, it can be eliminated. Selecting a cell is not necessary to modify its value, so we can eliminate that line. If we eliminate the line for selecting a cell, then we need to fix up the lines that begin with “SELECTION.”. That will take us to this:

Range("A1").Font.Bold = True
Range("A1").FormulaR1C1 = "My Title"
Range("A1").Locked = True

While the above works, it will be a little slow because Excel must resolve the Range(“A1″) for each command. Also, because we are not specifying a formula, but instead a specific value, we can change FormulaR1C1 to Value. With those changes we have:

With Range("A1")
    .Font.Bold = True
    .Value = "My Title"
    .Locked = True
End With

Now the question of which worksheet does the change apply to, the ActiveSheet, or some other sheet? Once all of the fine tuning of the automatically generated code is complete, the code posted by Niall becomes the end result.

I second the comment about using the macro recorder. I’d add that frequently it generates multiple calls to set individual properties of com objects. These can *nearly* always be replaced with the with construct – eg to manipulate Cell A1

With Worksheets("Sheet1").Range("A1")
    .Font.Bold = True
    .Value = "My Title"
    .Locked = True
End With