Sheet Tabs
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 |
Sheet Tabs
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 |
Sheet Tabs
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 |
All times are GMT +1. The time now is 03:12 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com