AutoFit

[wilbert1967]

Hallo

In een macro waarbij ik verschillende tabbladen selecteer en daarna de kolommen a tot en met e
werkt de EntireColumn.AutoFit niet maar als ik de macro stap voor stap doorloop wel

waar kan dit aanliggen?

mvg wilbert

 

[Cobbejaan]

Zou het niet duidelijker zijn indien je de macro post?

 

[wilbert1967]

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets(Array("Blad1", "Blad2", "Blad3", "Blad4")).Select
    Sheets("Blad1").Activate
    Columns("A:B").Select
    Columns("A:B").EntireColumn.AutoFit
    Sheets("Blad4").Select
End Sub

 

[Cobbejaan]

Zou deze dat niet opknappen:

Sub autofit()
For Each sh In ThisWorkbook.Sheets
   sh.Columns("A:E").EntireColumn.autofit
Next
End Sub

 

[wilbert1967]

dank u
het werkt