COPY > PASTE (macro)

[verluc]

Why doesn't work this macro?
I receive an error message on the line :
Range("A5").PasteSpecial

This is my macro :

Sub Filter()
currentworkbook = ActiveWorkbook.Name
currentsheet = ActiveSheet.Name
Columns("L:L").Select
Selection.autofilter Field:=1, Criteria1:="1"
Range("A5:" & Range("K65536").End(xlUp).Address).Copy
Workbooks.OpenText Filename:="G:Mijn documentenMap1.xls"
Sheets("Blad1").Select
Range("A5").PasteSpecial
Workbooks(currentworkbook).Sheets(currentsheet).Activate
Selection.autofilter
Range("A1").Select
End Sub

Many thanks for help.

 

[verluc]

On 2002-04-19 06:44, Tommy Bak wrote:
Hi verluc.
I've changed your macro a couple of places.
Now it seems to run well.

Sub Filter()
currentworkbook = ActiveWorkbook.Name
currentsheet = ActiveSheet.Name
Columns("L:L").Select
Selection.AutoFilter Field:=1, Criteria1:="1"
Set kopi = Range("A5:" & Range("K65536").End(xlUp).Address)
Workbooks.OpenText Filename:="G:Mijn documentenMap1.xls"
Cells.Clear
kopi.Copy
Range("A5").Select
ActiveSheet.Paste
Workbooks(currentworkbook).Worksheets(currentsheet).Activate
Selection.AutoFilter
Range("A1").Select
End Sub

Great Tommy,now it works all.
Many,Many thanks