# Set Column Width Based On Total Width Of Other Columns

1. ## Set Column Width Based On Total Width Of Other Columns

I need help setting up the following Column Width macro in Excel:

1. The "width" for Columns A, B, C, D should total 40.
2. Columns B, C, D have been "autofit" based on the data entered.
3. How would I set Column A "width" for all columns to still equal 40.

For example:

The new values are as follows:
Column B = 13
Column C = 10
Column D = 5

How would I set Column A "width" to 40 - (13,10,5)  Register To Reply

2. ## Re: Set Column Width Based On Total Width Of Other Columns

Hi,

Something like this should work:

Sub SetWidthOfColD()
Dim sngWidth As Single

With Sheets("mySheet")
sngWidth = .Columns("A").ColumnWidth + _
.Columns("B").ColumnWidth + _
.Columns("C").ColumnWidth

If (sngWidth < 40) Then
.Columns("D").ColumnWidth = 40 - sngWidth
End If
End With
End Sub

--
Regards,

Jake Marx

rayneraingoaway wrote:
> I need help setting up the following Column Width macro in Excel:
>
> 1. The "width" for Columns A, B, C, D should total 40.
> 2. Columns B, C, D have been "autofit" based on the data entered.
> 3. How would I set Column A "width" for all columns to still equal 40.
>
> For example:
>
> The new values are as follows:
> Column B = 13
> Column C = 10
> Column D = 5
>
> How would I set Column A "width" to 40 - (13,10,5)  Register To Reply