Private Sub Worksheet_Activate() Application.screenupdagting = False For Each c In Columns(3).Cells c.EntireRow.AutoFit Next Application.screenupdagting = True End Sub
Jeg har rodet lidt med den sidste og det ser ud til at virke. Hvis der senere skulle vise sig at være et problem med den, må jeg bruge nr. 2 løsning. Smider du et svar?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.