Solved: Copy/paste from all worksheets, except sheet1

[rory]

You need to specify that the Range belongs to ws:
[VBA]Sub PerformActivities()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Not (ws Is Sheet1) Then
ws.Range("A1") = 1000 'Replaced my code with this line
End If
Next ws
End Sub[/VBA]