How to consolidate multiple worksheets into one.
That is fantastic. Thanks Roger.
"Roger Govier" wrote:
Hi BJ
One way
After the Next statement, and before Application.ScreenUpdating = True,
and the following
With Ssheet
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:U" & lastrow).Value = Range("A2:U" & lastrow).Value
End With
--
Regards
Roger Govier
"Bovine Jones" wrote in message
...
Roger
Cracked it! It's because the macro when it's run is looking at the
spreadsheet and sees that it is referencing links to spreadsheets that
don't
exist. Break the links and it works perfectly. Many many thanks.
Now just one final question... is it possible so that when I paste
it's
pasted as values only (without the formatting?)
Then I promise I'll leave you alone!
|