Macro to rename Tab and then save as
Thanks Dave!
"Dave Peterson" wrote:
Dim wks as worksheet
set wks = activesheet
with wks
.name = .range("Ab2").value
'or if AB2 contains a date, you can make sure that the
'value is legal (sheet names can't contain /'s).
.name = Format(.range("AB2").value, "yyyy-mm-dd")
end with
and maybe...
dim myStr as string
Dim wks as worksheet
set wks = activesheet
with wks
.name = .range("Ab2").value
'or if AB2 contains a date, you can make sure that the
'value is legal (sheet names can't contain /'s).
.name = Format(.range("AB2").value, "yyyy-mm-dd")
mystr = "Case-" & .name & ".xlsm"
end with
Construk wrote:
Hi,
I'm trying to do a macro thatdoes 2 things:
1- Rename the active Tab with the content of a cell in it
dimvar = Date1
Range("AB2").Select
(?)Selection.Copy = Date1
ActiveWorkbook.Worksheets.Select
(???).Name = Date
Range("A4").Select
End Sub
2- Then, use this same Tab name and add it after an other word
Case-Date1.xlsm
Michel
--
Dave Peterson
.
|