OK, Excel VBA has defeated me again. I suspect that when I see the answer I'll feel like an idiot. Luckily, as I get older I'm gradually adjusting to that. Here's my code:

```
Option Explicit

Sub FormatAllSheets()
    Dim shNames()
    ReDim shNames(Worksheets.Count - 1)
    Dim shIndex As Integer
    For shIndex = 0 To UBound(shNames)
        shNames(shIndex) = Worksheets(shIndex + 1).Name
    Next shIndex

    Range("A1", "ZZ1").Select

    Sheets(shNames).Select
    Selection.Font.Bold = True
    Selection.WrapText = True
End Sub

```

Many thanks,
Tony Lima