macro code vereenvoudigen

[mtb70]

Hoi,

ik heb onderstaande code opgenomen met de macro recorder, maar elke keer begint het beeldscherm te flikkeren en duurt het relatief lang voordat het tabblad bijgewerkt is. Ik heb screenupdating false en true gebruikt maar helpt niet echt veel

de code moet gaan werken zodra ik tablad week 1 aanklik, hiervoor heb ik de achter dit tablad deze code zitten
Private Sub Worksheet_Activate()
Macro1
End Sub


Ik ben rondgekeken om onderstaande code te vereenvoudigen maar verder als dit kom ik niet:

Sheets("1e kwartaal 2014").Range("C4:I24").Copy Value = Sheets("week 1").Range("I5").Value

Deze code moet dus vereenvoudigd worden:

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("1e kwartaal 2014").Select
Range("C4:I24").Select
Selection.Copy
Sheets("week 1").Select
Range("I5").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

 

[Cobbe]

Zo goed?

Sub Macro1()
   Sheets("1e kwartaal 2014").Range("C4:I24").Copy  Sheets("week 1").Range("I5")
 End Sub

 

[mtb70]

top, thanks

 

[snb]

Zo beter ?

Private Sub Worksheet_Activate()
   Range("I5:O25")= Sheets("1e kwartaal 2014").Range("C4:I24").Value  
End Sub