I'm trying to speed up this code, any ideas???

ThisWorkbook.Sheets("TSC").Range("1:10").Calculate

Sheets("TS1").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("4:4").Value

Sheets("TS2").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("6:6").Value

Sheets("TS3").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("8:8").Value

Sheets("TS4").Select
ActiveCell.EntireRow = Sheets("TSC").Rows("10:10").Value

Try

Sheets("TS1").Range("A1").EntireRow = Sheets("TSC").Rows("4:4").Value.

Also you can set some properties (http://vbadud.blogspot.com/2007/04/i...rformance.html)

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)