Copying and Pasting Macro

[Jurassien]

Hello,

I need helps on creating a macro that will copy and paste specific range
(E2:V200) from Sheet1 to Sheet 2 and so on. The script that I have does not
seem to working. Please Help!

Sub DoCopy()
Dim szRange As String
szRange = "E2:V200"
Worksheets("Data").Range
(szRange).Copy Destination:=Worksheets
("sheet2").Range(szRange)
End Sub

Thanks,

 

[Gord Dibben]

"not seem to be working" is a bit vague.

What doesn't happen or does happen when you run your macro?

Do you get errors or?

Works for me after I clean up the line wrapping.

Sub DoCopy()
Dim szRange As String
szRange = "E2:V200"
Worksheets("Data").Range _
(szRange).Copy Destination:=Worksheets _
("sheet2").Range(szRange)
End Sub



Gord Dibben MS Excel MVP

 

[Jurassien]

Yes indeed I am getting an error message #9. I,ll go ahead try it again.

Thanks,

 

[Jurassien]

I have cleaned up the line wrap. I can compile the code, but when I run the
macro I get this message "Subscript out of range" What do I need to do in
order to get macro working properly (generating result)?

 

[Gord Dibben]

I would suggest one of your sheetnames is incorrect.

If I change "Data" to "Yata" I get a "subscript out of range" error 9


Gord

 

[Jurassien]

Thanks a bunch! I got it now.

I would suggest one of your sheetnames is incorrect.

If I change "Data" to "Yata" I get a "subscript out of range" error 9


Gord

 

[Gord Dibben]

Excellent

Those darn sheetnames with a space where it doesn't get noticed<g>

Gord