Autofit Column VBA not working.

[Strider89]

I have a code that checks to see if there is a change in Column C, and then autofits columns C:U, then hides a specific column. However, the code is not doing anything now. No errors occur, nothing happens to the sheet, and if there too many characters in a cell, the ### is all I see, which is what this code is designed to stop. What have I done wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False
                
If Target.Column = 3 Then
    ActiveSheet.Unprotect
    Columns("C:U").AutoFit
    Columns("T").Hidden = True
    ActiveSheet.Protect


Else
    Exit Sub
End If
    
Application.ScreenUpdating = True
    
End Sub

 

[Norie]

That code doesn't check if a change is made in column C, it checks if column C has been selected.

Try using the Change event instead.

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.ScreenUpdating = False
                
    If Target.Column = 3 Then
        Me.Unprotect
        Columns("C:U").AutoFit
        Columns("T").Hidden = True
        Me.Protect
    End If
    
    Application.ScreenUpdating = True
    
End Sub

 

[BobUmlas]

2 possibilities come to mind. Your code leaves Screenupdating as false if it wasn't column 3 that changed.
Also, you MAY have events turned off

 

[Strider89]

Changed per your suggestion, still doesn't do anything.

 

[Norie]

Where have you put the code?

 

[Strider89]

In the Worksheet itself. As in, right-click, view code, and select "Worksheet" from the drop-down menu on the top left. Sorry if that was redundant, I'm still learning all the lingo and wanted to be sure I got the location as correct as possible with my limited understanding.