Thanks Jim & Norie for your quick replies! I really appreciate it.
From your comments I managed to trim my code right down and get it to work. The "select" function seemed to be causing a lot of grief but the last time I used this piece of code I had no problems.
What I was trying to do was copy a chunk of data from one sheet to another then remove the header, this data would vary in length but would always be contiguous.
Then I wanted to change the format of one of the columns.
'Copy from CSV to Quote and delete first row
Sheets("CSV").UsedRange.Copy Destination:=Sheets("Quote").Range("B12")
Sheets("Quote").Range("B12").EntireRow.Delete
'Change to text
Sheets("Quote").Columns(2).NumberFormat = "@"
Bookmarks