Insert AutoFit Column A into existing VBA.

[Livin404]

Greeings I have a VBA that works perfectly fine.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Application.Intersect(Target, Columns("T")) Is Nothing Then
        With Target
            If .CountLarge = 1 Then
                Select Case UCase(.Value)
                Case "1 COP": .Offset(0, -10).Value = 2300
                Case "2 COPS": .Offset(0, -10).Value = 4600
                Case "3 COPS": .Offset(0, -10).Value = 6900
                Case "4 COPS": .Offset(0, -10).Value = 9200
                End Select
            End If
        End With
    End If
End Sub

I would like to insert something like

Application.EnableEvents = False
Range("A1").EntireColumn.AutoFit

but not sure without ruining the first Macro. This addition piece will autofit the Column A.

Thank you very much indeed.

 

[Fluff]

Did you try adding this to your code

Range("A1").EntireColumn.AutoFit

 

[GWteB]

How about ...

Private Sub Worksheet_Change(ByVal Target As Range)

    With Excel.Application

        If Not .Intersect(Target, Me.Columns("A")) Is Nothing Then
            Me.Columns("A").AutoFit
        End If

        If Not .Intersect(Target, Me.Columns("T")) Is Nothing Then
            .EnableEvents = False
            With Target
                If .CountLarge = 1 Then
                    Select Case UCase(.Value)
                    Case "1 COP": .Offset(0, -10).Value = 2300
                    Case "2 COPS": .Offset(0, -10).Value = 4600
                    Case "3 COPS": .Offset(0, -10).Value = 6900
                    Case "4 COPS": .Offset(0, -10).Value = 9200
                    End Select
                End If
            End With
            .EnableEvents = True
        End If

    End With
End Sub

 

[Livin404]

How about ...

Private Sub Worksheet_Change(ByVal Target As Range)

    With Excel.Application

        If Not .Intersect(Target, Me.Columns("A")) Is Nothing Then
            Me.Columns("A").AutoFit
        End If

        If Not .Intersect(Target, Me.Columns("T")) Is Nothing Then
            .EnableEvents = False
            With Target
                If .CountLarge = 1 Then
                    Select Case UCase(.Value)
                    Case "1 COP": .Offset(0, -10).Value = 2300
                    Case "2 COPS": .Offset(0, -10).Value = 4600
                    Case "3 COPS": .Offset(0, -10).Value = 6900
                    Case "4 COPS": .Offset(0, -10).Value = 9200
                    End Select
                End If
            End With
            .EnableEvents = True
        End If

    End With
End Sub

Perfect Thank you,

 

[GWteB]

Glad we could be of some help and thanks for letting us know