On Feb 27, 1:36 pm, mdmackillop
wrote:
As you are doing a PasteSpecial Values, instead try
Sub WriteMap()
Dim Rng As Range
Set Rng = Range("S2:S293")
Sheets("Sheet1").Range("C" &
Range("A1")).Resize(Rng.Cells.Count).Value = Rng.Value
End Sub

--
mdmackillop
------------------------------------------------------------------------
mdmackillop's Profile:http://www.thecodecage.com/forumz/member.php?userid=113
View this thread:http://www.thecodecage.com/forumz/sh...ad.php?t=69236

Exactly what I was looking for mdmackillop, thanks.