Hi All

When I run the following macro everything works OK with no problems

Sub Macro7()
'Copies and Saves Result At the End Of Workbook

Application.ScreenUpdating = False
Sheets("Result").Select
Sheets("Result").Copy After:=Sheets(29)
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Result").Select
Range("A2:J2").Select
Selection.ClearContents
Range("A3:J3").Select
Selection.ClearContents
Range("B5:J24").Select
Selection.ClearContents
Range("A2:J2").Select
Application.ScreenUpdating = True
End Sub

Is it possible to enter Text in Cell "L4" for example London and when the
Result Sheet is copied and moved using the Macro above - the Sheet Tab
changes to the text in "L4"
--
Many thanks

hazel

Just add

Activesheet.Name = Range("L4").Value

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Hazel" wrote in message
...
Hi All

When I run the following macro everything works OK with no problems

Sub Macro7()
'Copies and Saves Result At the End Of Workbook

Application.ScreenUpdating = False
Sheets("Result").Select
Sheets("Result").Copy After:=Sheets(29)
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Result").Select
Range("A2:J2").Select
Selection.ClearContents
Range("A3:J3").Select
Selection.ClearContents
Range("B5:J24").Select
Selection.ClearContents
Range("A2:J2").Select
Application.ScreenUpdating = True
End Sub

Is it possible to enter Text in Cell "L4" for example London and when the
Result Sheet is copied and moved using the Macro above - the Sheet Tab
changes to the text in "L4"
--
Many thanks

hazel

If I understand you, you want to copy resultgo back to the source
sheetclear some rangesname it.

NOT tested. Pay particular attention to the dot placement ( . ) in the
with statement

sub copysht()
Application.ScreenUpdating = False
with Sheets("Result")
.Copy After:=Sheets(29)
.Range("A2:J3,b5:j24").ClearContents
.name=.range("l4")
application goto .Range("A2") 'why?
end with
Application.ScreenUpdating = True
End Sub


--
Don Guillett
SalesAid Software

"Hazel" wrote in message
...
Hi All

When I run the following macro everything works OK with no problems

Sub Macro7()
'Copies and Saves Result At the End Of Workbook

Application.ScreenUpdating = False
Sheets("Result").Select
Sheets("Result").Copy After:=Sheets(29)
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Result").Select
Range("A2:J2").Select
Selection.ClearContents
Range("A3:J3").Select
Selection.ClearContents
Range("B5:J24").Select
Selection.ClearContents
Range("A2:J2").Select
Application.ScreenUpdating = True
End Sub

Is it possible to enter Text in Cell "L4" for example London and when the
Result Sheet is copied and moved using the Macro above - the Sheet Tab
changes to the text in "L4"
--
Many thanks

hazel

Hi Bob

Thanks been messing about for weeks re - typing Sheet Tab names 40 a week I
won't have to do from now on --- Thanks
--
Many thanks

hazel


"Bob Phillips" wrote:

Just add

Activesheet.Name = Range("L4").Value

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Hazel" wrote in message
...
Hi All

When I run the following macro everything works OK with no problems

Sub Macro7()
'Copies and Saves Result At the End Of Workbook

Application.ScreenUpdating = False
Sheets("Result").Select
Sheets("Result").Copy After:=Sheets(29)
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Result").Select
Range("A2:J2").Select
Selection.ClearContents
Range("A3:J3").Select
Selection.ClearContents
Range("B5:J24").Select
Selection.ClearContents
Range("A2:J2").Select
Application.ScreenUpdating = True
End Sub

Is it possible to enter Text in Cell "L4" for example London and when the
Result Sheet is copied and moved using the Macro above - the Sheet Tab
changes to the text in "L4"
--
Many thanks

hazel