Header missing

[Tepa]

When macro copies sheet Example, which has a header, and then paste it to newsheet, the header isn't there.

Does anyone have any reason for this.
I have a macro like...

Set NewSheet = Worksheets.Add
Sheets("Example").Select
Cells.Select
Selection.Copy
NewSheet.Paste

 

[Andrew Poulsom]

You need to copy the sheet rather than adding a new one and copying the data. Like this:

Sub Test()
    Sheets("Example").Copy After:=Sheets("Example")
End Sub