Jørgen Bondesen wrote:
> Hej Klaus.
>
>
> Det kan man på sin vis godt.
>
> 'Placeres i Arkets modul. Højreklik på faneblad og vælg Vis koder.
>
> Option Explicit
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Columns(Target.Column).EntireColumn.AutoFit
> End Sub
>
Tak for svaret der vil blive afprøvet snarest.
--
Mvh.
Klaus Eriksen
www.aigis.dk