VBA to Copy Columns and Paste Column Widths to all other sheets.

[Mr Retirement]

Hi All -

I am looking to copy whichever sheet is active (Columns D:CZ) and paste the column widths to all other sheets.

ActiveSheet.Range("D:CZ").Copy

Then somehow use -> PasteSpecial xlPasteColumnWidths?


Thanks in advance!

Mr R

 

[friel300]

Try this.

Sub Copy_Column_Widths()    Dim wActSht As Worksheet
    Dim arrWidths(101) As Single
    Set wActSht = ActiveSheet
    For x = 4 To 104
        arrWidths(x - 4) = wActSht.Cells(1, x).ColumnWidth
    Next
    For Each sht In Sheets
        If sht.Name <> wActSht.Name Then
            For x = 4 To 104
                sht.Cells(1, x).ColumnWidth = arrWidths(x - 4)
            Next
        End If
    Next
End Sub

 

[Mr Retirement]

Hi Friel - thanks so much! works exactly how I wanted.

Much appreciated.

 

[friel300]

No Problem Bud
Happy to Help

 

[Mr Retirement]

Still works great. But just curious - if I didn't want one sheet to be effected by this. Don't you write a line with that particular Sheet name then = false?

Trying to learn here