I added that and added to the macro for the remaining columns. I must be misunderstanding something, it's not quite working, but I'm getting close. :)
Sub FormatWeeklyBadgeReport()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim nameToFind As String
Dim rng As...