Run-time error 9 when trying to copy a worksheet
Sheets.count is referening to the active workbook and not thisworkbook. Give
this tweak a try...
with ThisWorkbook
Sheets("EQUIP-CR").Copy After:=.Sheets(.Sheets.Count)
end with
--
HTH...
Jim Thomlinson
"ksh" wrote:
The following code is part of a macro I have set up. The first two lines
(select "CR" and rename as "EQUIP-CR") work perfectly, but I get a run-time
error 9 (Subscript out of range) when it gets to the copy worksheet line.
Sheets("CR").Select
ActiveSheet.Name = "EQUIP-" & ActiveSheet.Name
Sheets("EQUIP-CR").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
I'm sure it is something very simple, but my VBA skills are limited and I
haven't been able to figure this one out. Any help is appreciated.
|