Pages

Wednesday, March 21, 2012

Copy past

Sub CopyOne()

 

Worksheets(“Sheet1”).Activate

Range(“A1”).Copy Range(“B1”)

 

End Sub

No comments:

Post a Comment