I have a button on my ss that I want to use to create a new worksheet. The
catch is that I want the name to be a date cell plus 14 days. Here is what I
have so far.

Sub Save_New_Tab_Click()
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), Date,
"mm_dd_yyyy")

End Sub

A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet name
in format mm_dd_yyyy. This has been driving me crazy all afternoon. What am I
doing wrong?

TIA
Gerald

--
Message posted via http://www.officekb.com

Sub Save_New_Tab_Click()
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14),
"mm_dd_yyyy")
End Sub

--
---
HTH

Bob

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



"gjameson via OfficeKB.com" <u21717@uwe> wrote in message
news:6dc3364fbea6c@uwe...
>I have a button on my ss that I want to use to create a new worksheet. The
> catch is that I want the name to be a date cell plus 14 days. Here is what
> I
> have so far.
>
> Sub Save_New_Tab_Click()
> Worksheets.Add After:=Worksheets(Worksheets.Count)
> Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14),
> Date,
> "mm_dd_yyyy")
>
> End Sub
>
> A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet
> name
> in format mm_dd_yyyy. This has been driving me crazy all afternoon. What
> am I
> doing wrong?
>
> TIA
> Gerald
>
> --
> Message posted via http://www.officekb.com
>

Sorry, that should be

Sub Save_New_Tab_Click()
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = _
Format((Range("A2").Value + 14), "mm_dd_yyyy")
End Sub


--
---
HTH

Bob

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



"gjameson via OfficeKB.com" <u21717@uwe> wrote in message
news:6dc3364fbea6c@uwe...
>I have a button on my ss that I want to use to create a new worksheet. The
> catch is that I want the name to be a date cell plus 14 days. Here is what
> I
> have so far.
>
> Sub Save_New_Tab_Click()
> Worksheets.Add After:=Worksheets(Worksheets.Count)
> Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14),
> Date,
> "mm_dd_yyyy")
>
> End Sub
>
> A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet
> name
> in format mm_dd_yyyy. This has been driving me crazy all afternoon. What
> am I
> doing wrong?
>
> TIA
> Gerald
>
> --
> Message posted via http://www.officekb.com
>

What you are doing wrong is giving Format 3 parameters, when it is looking for
only two. Take out the " Date," from your Format function.

--
Regards,
Fred


"gjameson via OfficeKB.com" <u21717@uwe> wrote in message
news:6dc3364fbea6c@uwe...
>I have a button on my ss that I want to use to create a new worksheet. The
> catch is that I want the name to be a date cell plus 14 days. Here is what I
> have so far.
>
> Sub Save_New_Tab_Click()
> Worksheets.Add After:=Worksheets(Worksheets.Count)
> Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), Date,
> "mm_dd_yyyy")
>
> End Sub
>
> A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet name
> in format mm_dd_yyyy. This has been driving me crazy all afternoon. What am I
> doing wrong?
>
> TIA
> Gerald
>
> --
> Message posted via http://www.officekb.com
>

He is also trying to pick up the date from the wrong sheet.
--
---
HTH

Bob

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



"Fred Smith" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> What you are doing wrong is giving Format 3 parameters, when it is looking
> for only two. Take out the " Date," from your Format function.
>
> --
> Regards,
> Fred
>
>
> "gjameson via OfficeKB.com" <u21717@uwe> wrote in message
> news:6dc3364fbea6c@uwe...
>>I have a button on my ss that I want to use to create a new worksheet. The
>> catch is that I want the name to be a date cell plus 14 days. Here is
>> what I
>> have so far.
>>
>> Sub Save_New_Tab_Click()
>> Worksheets.Add After:=Worksheets(Worksheets.Count)
>> Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14),
>> Date,
>> "mm_dd_yyyy")
>>
>> End Sub
>>
>> A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet
>> name
>> in format mm_dd_yyyy. This has been driving me crazy all afternoon. What
>> am I
>> doing wrong?
>>
>> TIA
>> Gerald
>>
>> --
>> Message posted via http://www.officekb.com
>>
>
>

Gentlemen,

Thank you so much for your help. I would have responded sooner, but i was out
sick most of last week. Thanks again for the help.

Gerald

Bob Phillips wrote:
>He is also trying to pick up the date from the wrong sheet.
>> What you are doing wrong is giving Format 3 parameters, when it is looking
>> for only two. Take out the " Date," from your Format function.
>[quoted text clipped - 20 lines]
>>> TIA
>>> Gerald

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200702/1