Exporting filtered data to new workbook issue

Hi guys.

VBA novice, so be gentle with me.

I am using the VBA coding below for users to export the contents of a worksheet to another workbook.

This works great until the data is filtered, which then throws up a 'Error 1004 - We can't do that to a merge cell'. Any work around?

Sub Export()
ActiveSheet.Cells.Copy
Workbooks.Add
ActiveCell.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

On another note, some users are getting a "Go To of Object - Application Failed" message....seperate issue I know, but thought I would throw 2 at you at once

Thanks

D

But why would it export fine until you filter? The merged cells are still there in either scenario.

Thanks

Thanks for your reply. I have added ActiveSheet.Cells.UnMerge at the beginning of the script. It will look at bit messy in parts, but that is less important

What about the GO TO OBJECT APPLICATION FAILED issue? Or am I pushing my luck?



D

Same here :os It is only one person that has reported that to me, so hoping it is just a one off. Thanks for your help.