Autofit columns in a range

[Harlort]

I've done this simple code. But I want it to execute automatically?

Sub autofit()

    Range("B4:B18").Columns.autofit
    Range("C4:C18").Columns.autofit
    Range("D4:D18").Columns.autofit
    Range("E4:E18").Columns.autofit

End Sub

It's in the VBA code of a specific sheet.

Any suggestions (including improving existing code...I'm a new at this :-) )?

Regards,
Niklas

[romperstomper]

What do you mean by automatically? When do you want it to run?
You can shorten it to:

Sub autofit()

Range("B4:E18").Columns.autofit

End Sub

Note: I have added code tags to your post, but you must learn to use them in future when posting code.

[Harlort]

Thanks for cleaning up my code.

I want the column/columns to autofit as soon as data has been entered into a cell. Is it possible...?

[romperstomper]

That should happen anyway, but you can put this into the worksheet code module (right-click the sheet tab and choose View Code, then paste it in)

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("B4:E18")) Is Nothing Then
      Range("B4:E18").Columns.autofit
   End If
End Sub