Next

ActiveWorkbook.Unprotect ("xxx")
Sheets("ws4").Visible = True
Sheets("ws4").Select
.DisplayPageBreaks = False
Sheets("ws4").Range("a2:m21").Select
Selection.copy
Sheets("ws4").Visible = False
ActiveWorkbook.Protect ("xxx")
Sheets("Sheet2").Select


End With
Next

With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With


If you can't tell, I want to select and copy a2:m21 on sheet ws1 (which
is hidden). Then, what I do is have a seperate workbook with a
PasteSpecial - values macro to place this info into a data sheet for
use with a PivotTable.

After the code above executes, what was selected no longer appears on
the clipboard. Ideas?


--
BigDave
------------------------------------------------------------------------
BigDave's Profile: http://www.excelforum.com/member.php...fo&userid=7741
View this thread: http://www.excelforum.com/showthread...hreadid=379486