simple copy column works but ERROR!

[Jack]

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

On Tue, 29 Nov 2005 18:22:01 -0800, "Jack" <[email protected]>
wrote:

>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?