How to Bold an Entire Column using VBA

[Allienne]

Hello!

I need to bold the entire 'Grand Total' column. Now the number of columns varies so I am trying to find a way to lookup if the column says Grand Total and if so, bold that whole column.

Below is what I have so far. There can be a maximum total of 61 columns (including the Grand Total).

Dim lColumn1 As Long
Dim iCntr1 As Long
lColumn1 = 61
For iCntr = lColumn1 To 1 Step -1
If Cells(1, iCntr1) = "Grand Total" Then
Columns(iCntr1).Font.Bold
End If
Next

Any help would be appreciated!

 

[Rick Rothstein]

Hello!

I need to bold the entire 'Grand Total' column. Now the number of columns varies so I am trying to find a way to lookup if the column says Grand Total and if so, bold that whole column.

Below is what I have so far. There can be a maximum total of 61 columns (including the Grand Total).

Dim lColumn1 As Long
Dim iCntr1 As Long
lColumn1 = 61
For iCntr = lColumn1 To 1 Step -1
If Cells(1, iCntr1) = "Grand Total" Then
Columns(iCntr1).Font.Bold
End If
Next

Any help would be appreciated!

Does this do what you want...

[table="width: 500"]
[tr]
	[td]Sub BoldGrandTotalColumn()
  With Rows(1).Find("Grand Total", , xlValues, xlWhole, , , False, , False).EntireColumn
    .SpecialCells(xlFormulas).Font.Bold = True
    .SpecialCells(xlConstants).Font.Bold = True
  End With
End Sub[/td]
[/tr]
[/table]

 

[Fluff]

Hi & welcome to MrExcel.
you've got a couple of errors try

Dim lColumn1 As Long
Dim iCntr1 As Long
lColumn1 = 10
For iCntr[COLOR=#ff0000]1[/COLOR] = lColumn1 To 1 Step -1
   If Cells(1, iCntr1) = "Grand Total" Then
      Columns(iCntr1).Font.Bold [COLOR=#ff0000]= True[/COLOR]
   End If
Next

 

[Allienne]

Fluff,

Your corrections worked! Thanks so much! I'm still learning the VBA rights and wrongs and had no idea I needed to put "= True" behind the .Font.Bold. Also I can't believe I forgot the 1 behind the iCntr. It's part of a larger macro which uses lColumn and iCntr higher up so I couldn't reuse the Dim.

 

[Fluff]

Glad we could help & thanks for the feedback