Help with PasteSpecial

[staeri]

Can someone help me with the syntax for making PasteSpecial work
without selection the range first?

Range("AL1").Select
Selection.Copy
Sheets("Databas_ASI").Select
Range("A2:A27").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd,
SkipBlanks:= False, Transpose:=False

Regards,

S

 

[Ardus Petus]

Range("AL1").copySelection.Copy
WorkSheets("Databas_ASI").Range("A2:A27").PasteSpecial Paste:=xlPasteAll,
Operation:=xlAdd,
SkipBlanks:= False, Transpose:=False

HTH

 

[staeri]

I changed to Range("AL1").Copy then it worked. Thank's a lot!

Regards,

S


Ardus Petus skrev: