Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
           
' OMSCHRIJVING:
' Automatisch de kolombreedte aanpassen in Excel.


' WAT TE DOEN:  KOPIEREN & PLAKKEN, KLAAR!


' MAKKELIJK TOE TE PASSEN:
' Kopieer deze hele tekst (alles) en plak deze in ThisWorkbook (in Excel: Alt + F11) van uw Werkmap.
' Na het plakken kunt u het uitproberen door in Cel A1 "Test " in te vullen. (Test + Spatie + Enter)
' Vul in Cel A2 "Dit is een test" + Enter. 


' HOE WERKT HET?
' Automatisch de kolombreedte aanpassen in Excel via de "Kolomlabel " (titel + spatie) in Rij 1.
' Alleen de kolommen waarbij de inhoud van Cel 1 (bovenste cel in een kolom) eindigt met een spatie 
' worden automatisch aangepast. Dus zo kun je deze optie  "Aan " of "Uit" doen.

 
    If Right(Cells(1, ActiveCell.Column).Value, 1) = " " Then
          
          ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit
    
    End If

    Rem (c)2008 PlusComp.nl, Computertrainingen in Emmeloord (nl), Gemaakt door Stevan de Boer op 29-04-2008.
              
End Sub