Format Dynamic Range of Columns

[datauser]

Hello!

I am attempting to format a dynamic range of columns using this code, but I keep receiving error messages.

Sub Step9_FormatRowWidth()

lastcolumn = Sheets("Week to Week").Cells(3, Columns.Count).End(xlToLeft).Column
Columns("C:lastcolumn").Select
Selection.ColumnWidth = 13.57

Any help is appreciated!

 

[mumps]

Try:

Sub Step9_FormatRowWidth()
    Dim lastcolumn As Long
    lastcolumn = Sheets("Week to Week").Cells(3, Columns.Count).End(xlToLeft).Column
    Range(Cells(1, 3), Cells(1, lastcolumn)).EntireColumn.ColumnWidth = 13.57
End Sub

 

[datauser]

Try:

Sub Step9_FormatRowWidth()
    Dim lastcolumn As Long
    lastcolumn = Sheets("Week to Week").Cells(3, Columns.Count).End(xlToLeft).Column
    Range(Cells(1, 3), Cells(1, lastcolumn)).EntireColumn.ColumnWidth = 13.57
End Sub

This works! Thank you for your help!

 

[mumps]

You are very welcome.