Wednesday, 12 November 2014

Simple Cut paste with UsedRange method

Sub CutMove_Click()

Worksheets(1).Activate

ActiveSheet.UsedRange.Cut

Worksheets(2).Activate

ActiveSheet.Paste

End Sub

No comments:

Post a Comment