Thread
:
Sheet Tabs
View Single Post
#
3
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
Sheet Tabs
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
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett