Hi,

I'm creating a series of macros that will access a sheet, copy a header line
and then return to the original worksheet and paste the give header where I
want it to go. I don't have any real problem creating the macro itself.
Where my problem is, is that right now, it's only good for one sheet. The
way the macro reads, it copies the headers and then comes back to the
worksheet that I was on when I originally created the macro. So then, how do
I change the macro from returning to the original sheet and return to the
sheet that I am currently on? Any help would be appreciated.

Hi MandrakeDM -

Sub mandrake()
Worksheets("HeaderSheet").Range("A1:J1").Copy
ActiveSheet.Paste Destination:=Range("B12")
End Sub
------

I also suggest adding the following optional statement just prior to the End
Sub to turn off the flashing copy marquee on the copied header source range:

Application.CutCopyMode = False
End Sub

--
Jay


"MandrakeDM" wrote:

Hi,

I'm creating a series of macros that will access a sheet, copy a header line
and then return to the original worksheet and paste the give header where I
want it to go. I don't have any real problem creating the macro itself.
Where my problem is, is that right now, it's only good for one sheet. The
way the macro reads, it copies the headers and then comes back to the
worksheet that I was on when I originally created the macro. So then, how do
I change the macro from returning to the original sheet and return to the
sheet that I am currently on? Any help would be appreciated.

The first macro goes to Sheet3 to copy and then returns to Sheet1 to paste:

Sub Macro1()
Sheets("Sheet3").Select
Range("G4:H9").Select
Range("G9").Activate
Selection.Copy
Sheets("Sheet1").Select
Range("C9").Select
ActiveSheet.Paste
End Sub

The next macro "remembers" where it came from and returns the

Sub generall()
Dim s As String
s = ActiveSheet.Name
Sheets("Sheet3").Select
Range("G4:H9").Select
Range("G9").Activate
Selection.Copy
Sheets(s).Select
Range("C9").Select
ActiveSheet.Paste
End Sub

Actually it is not necessary to jump back and forth at all.
--
Gary''s Student - gsnu200753


"MandrakeDM" wrote:

Hi,

I'm creating a series of macros that will access a sheet, copy a header line
and then return to the original worksheet and paste the give header where I
want it to go. I don't have any real problem creating the macro itself.
Where my problem is, is that right now, it's only good for one sheet. The
way the macro reads, it copies the headers and then comes back to the
worksheet that I was on when I originally created the macro. So then, how do
I change the macro from returning to the original sheet and return to the
sheet that I am currently on? Any help would be appreciated.

Thanks Jay. I won't be able to try it until Sunday night but it looks good.
Between you and Gary's Student, I think it's solved.

Mandrake

"Jay" wrote:

Hi MandrakeDM -

Sub mandrake()
Worksheets("HeaderSheet").Range("A1:J1").Copy
ActiveSheet.Paste Destination:=Range("B12")
End Sub
------

I also suggest adding the following optional statement just prior to the End
Sub to turn off the flashing copy marquee on the copied header source range:

Application.CutCopyMode = False
End Sub

--
Jay


"MandrakeDM" wrote:

Hi,

I'm creating a series of macros that will access a sheet, copy a header line
and then return to the original worksheet and paste the give header where I
want it to go. I don't have any real problem creating the macro itself.
Where my problem is, is that right now, it's only good for one sheet. The
way the macro reads, it copies the headers and then comes back to the
worksheet that I was on when I originally created the macro. So then, how do
I change the macro from returning to the original sheet and return to the
sheet that I am currently on? Any help would be appreciated.

Thanks so much for the help. I'll try it out on Sunday night. Between you and
Jay, I think the problems fixed.

Mandrake

"Gary''s Student" wrote:

The first macro goes to Sheet3 to copy and then returns to Sheet1 to paste:

Sub Macro1()
Sheets("Sheet3").Select
Range("G4:H9").Select
Range("G9").Activate
Selection.Copy
Sheets("Sheet1").Select
Range("C9").Select
ActiveSheet.Paste
End Sub

The next macro "remembers" where it came from and returns the

Sub generall()
Dim s As String
s = ActiveSheet.Name
Sheets("Sheet3").Select
Range("G4:H9").Select
Range("G9").Activate
Selection.Copy
Sheets(s).Select
Range("C9").Select
ActiveSheet.Paste
End Sub

Actually it is not necessary to jump back and forth at all.
--
Gary''s Student - gsnu200753


"MandrakeDM" wrote:

Hi,

I'm creating a series of macros that will access a sheet, copy a header line
and then return to the original worksheet and paste the give header where I
want it to go. I don't have any real problem creating the macro itself.
Where my problem is, is that right now, it's only good for one sheet. The
way the macro reads, it copies the headers and then comes back to the
worksheet that I was on when I originally created the macro. So then, how do
I change the macro from returning to the original sheet and return to the
sheet that I am currently on? Any help would be appreciated.