Copy columns

[Forestq]

hi,

while I`m running below code I`m getting error like:

run-time error 1004
select method of Range class failed

Application.ScreenUpdating = False
Application.DisplayAlerts = False


Dim wsC As Worksheet
Dim wbC As Workbook
Set wbC = ActiveWorkbook
Set wsC = wbC.Worksheets("ABC")


wsC.Columns("AG:AH").Select
Selection.Copy
wsC.Range("BA1").Select
wsC.Paste
Application.CutCopyMode = False
wsC.Range("A1").Select


Application.ScreenUpdating = True
Application.DisplayAlerts = True

do you know why?

 

[VoG]

Try without selecting

Application.ScreenUpdating = False
Application.DisplayAlerts = False


Dim wsC As Worksheet
Dim wbC As Workbook
Set wbC = ActiveWorkbook
Set wsC = wbC.Worksheets("ABC")


wsC.Columns("AG:AH").Copy Destination:=wsC.Range("BA1")
Application.CutCopyMode = False


Application.ScreenUpdating = True
Application.DisplayAlerts = True

 

[Forestq]

cool! thx!