Run macro if columns in a specific line are selected

Hi, I barelly remeber how to write VBA so i tend to find scripts on the internet. I found one that i wanted to modify but i cant seem to make the correct changes. Essentially i want to add a co...

excel

Macros and VBA

HansVogelaar

Aug 06, 2021

DJ_Excel

I see. Here is a new version:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("H1:AB1").ColumnWidth = 15
    If Target.Count > 1 Then Exit Sub
    If Target.Row <> 65 Then Exit Sub
    If Target.Column >= 8 And Target.Column <= 28 Then
        Target.ColumnWidth = 50
    End If
End Sub

DJ_Excel

Copper Contributor

Aug 06, 2021

Thanks HansVogelaar , this is much more elegant.
It doesn't seem to go back to size 15 after i click out though...

HansVogelaar

MVP

Aug 06, 2021

DJ_Excel

I see. Here is a new version:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("H1:AB1").ColumnWidth = 15
    If Target.Count > 1 Then Exit Sub
    If Target.Row <> 65 Then Exit Sub
    If Target.Column >= 8 And Target.Column <= 28 Then
        Target.ColumnWidth = 50
    End If
End Sub

DJ_Excel
Copper Contributor
Aug 09, 2021
Thank you so much HansVogelaar !
I do not understand how but it works!

Forum Discussion

Run macro if columns in a specific line are selected

Resources