simple copy column works but ERROR!

[Guest]

I use the following to 1) delete content in sheet 1 a:b
2) copy 2 columns (a:b) that are filtered - sheet2

Sub Macro1()
Sheets("Sheet1").Columns("A:B").ClearContents
Sheets("Sheet3").Activate
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheet1.Range("A1")

End Sub

I need this to paste in sheet1 - a1. It works but I get an error 1044.
Is my syntex correct? Am I able to ignore error?

 

[Ramthebuffs]

Works fine here. You don't have the space in the word "visible" in your
code do you?

 

[Gord Dibben]

Jack

Sheet1 may not be "Sheet1"

Try this amended version.

Sub Macro1()
Sheets("Sheet1").Columns("A:B").ClearContents
Sheets("Sheet3").Activate
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets("Sheet1").Range("A1")
End Sub


Gord Dibben Excel MVP