Waarom gaat het fout?

[stefano]

Ik heb een macro opgrnomen, maar bij het plakken gaat het fout. Weet iemand waarom?

dbv,

Stefano

Sub ALVEO()
    Sheets("formule").Select
    Selection.AutoFilter Field:=4, Criteria1:="ALVEOGRAAF W"
    Rows("1:10002").Select
    Selection.Copy
    Selection.AutoFilter Field:=4
    Range("A1").Select
    Sheets("alveo w").Select
[B][I][U]    ActiveSheet.Paste[/U][/I][/B]
    Range("A1").Select
End Sub

 

[Cobbe]

Sub ALVEO()
    Sheets("formule").AutoFilter Field:=4, Criteria1:="ALVEOGRAAF W"
    Rows("1:10002").Copy
    Sheets("alveo w").Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
End Sub

Zou deze werken?

Cobbe