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

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

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
.