Optimisation of code

[munkee]

With Worksheets("highlowperf")
    
    Range("A1").Select
    ActiveCell.Formula = "Team"
    Range("B1").Select
    ActiveCell.Formula = "AO names"
    Range("C1").Select
    ActiveCell.Formula = "AO hours"
    Range("D1").Select
    ActiveCell.Formula = "Week avg % productive time"
    Range("E1").Select
    ActiveCell.Formula = "Week avg % meeting target to PA"
    Range("F1").Select
    ActiveCell.Formula = "High/Low %prod time"
    Range("G1").Select
    ActiveCell.Formula = "High/Low %meeting target to PA"
    Range("H1").Select
    ActiveCell.Formula = "prod time sev"
    Range("I1").Select
    ActiveCell.Formula = "meet pa sev"
    Range("J1").Select
    ActiveCell.Formula = "Total sev"
    Range("K1").Select
    ActiveCell.Formula = "sev rating"
    

    
Application.ScreenUpdating = True
End With

I have this as part of a bigger macro. Is there a quicker method to setting the titles to the first row of columns other than having the macro select each cell then add the text as shown?

[Jack in the UK]

Range("A1").Formula = "Team"

Range("B1").Formula = "AO names"

[Ron Coderre]

Try this:

Sub NewTitles()
    Range("A1") = "Team"
    Range("B1") = "AO names"
    Range("C1") = "AO hours"
    Range("D1") = "Week avg % productive time"
    Range("E1") = "Week avg % meeting target to PA"
    Range("F1") = "High/Low %prod time"
    Range("G1") = "High/Low %meeting target to PA"
    Range("H1") = "prod time sev"
    Range("I1") = "meet pa sev"
    Range("J1") = "Total sev"
    Range("K1") = "sev rating"
End Sub

Does that help?

[DonkeyOte]

You can store the values in an Array if you find it easier to adapt in that manner, eg:

Dim vTitles
vTitles = Array("Team", "AO names", "AO hours", "etc....")
With Sheets("highlowperf")
    .Cells(1, "A").Resize(, 1 + UBound(vTitles)).Value = vTitles
End With

In VBA you rarely need to .Select anything - doing so will slow your code.

[royUK]

Another way

Option Explicit

Sub NewTitles()

    Dim Col    As Long
    Const Rw   As Long = 1
    For Col = Rw To 11
        Cells(Rw, Col).Value = Choose(Col, "Team", "AO names", "AO hours", _
                                      "Week avg % productive time", "Week avg % meeting target to PA", _
                                      "High/Low %prod time", "High/Low %meeting target to PA", "prod time sev", _
                                      "meet pa sev", "Total sev", "sev rating")
    Next Col
End Sub