EXCEL > GELİŞTİRİCİ > KOD GÖRÜNTÜLE > AÇILAN SAYFAYA <b> Private Sub Worksheet_SelectionChange(ByVal Target As Range) </b> <b> Cells.EntireColumn.AutoFit</b> <b> End Sub </b> KODUNU YAZINIZ.