deselecteren aan het eind van macro

[arjoderoon]

Ik heb onderstaande in mijn macro staan:

Columns("H:H").Select
    Selection.ColumnWidth = 26
    Columns("I:I").Select
    Selection.ColumnWidth = 15
End Sub

dat is het laatste gedeelte van de macro.
Als de macro nu klaar is, selecteert ie de hele kolom I. hoe zorg ik ervoor dat dat niet gebeurt?

 

[snb]

Door in VBA nooit gebruik te maken van select of activate, want overbodig.

  Columns(8).ColumnWidth = 26
  Columns(9).ColumnWidth = 15
End Sub

 

[Roncancio]

    Columns("H:H").ColumnWidth = 26
    Columns("I:I").ColumnWidth = 15
End Sub

Met vriendelijke groet,


Roncancio

 

[arjoderoon]

dank u.

is onderstaande ook nog eenvoudiger te doen dan?

    ActiveSheet.PivotTables("Draaitabel4").PivotCache.Refresh
    ActiveSheet.PivotTables("Draaitabel1").PivotCache.Refresh
    ActiveSheet.PivotTables("Draaitabel2").PivotCache.Refresh
    ActiveSheet.PivotTables("Draaitabel3").PivotCache.Refresh
    ActiveSheet.PivotTables("Draaitabel5").PivotCache.Refresh

 

[snb]

For j= 1 to 5
  ActiveSheet.PivotTables("Draaitabel" & j).PivotCache.Refresh
Next

 

[Roncancio]

ActiveSheet.RefreshAll

Met vriendelijke groet,


Roncancio