How to name the list

[Toman]

Firstly I made a type mistake: In my language version "Sheet" is "List"

Hello guys
I need help. I am trying to write my first VBA code. First complication has already occured :-).
I want to name the sheet after cell, including cell´s format (00"/"0000"/"00)

I use this simple code but doesn´t work properly:

Private Sub CommandButton2_Click()
ActiveSheet.Name = ActiveSheet.Range("B1").Value
End Sub



For instance: The cell has content : 05/4103/01 and I need to get this into Sheet´s name field.

My procedure returns only 5410301 as a Sheet name


Thank you for your advices

[Norman Jones]

Hi Toman

The slash (/) is not a legal sheet name character.

Changing the slash for (say) a hyphen, your code worked for me.


---
Regards,
Norman


"Toman" <[email protected]> wrote in
message news:[email protected]...
>
> Hello guys
> I need help. I am trying to write my first VBA code. First complication
> has already occured :-).
> I want to name the list after cell, including cellīs format
> (00"/"0000"/"00)
>
> I use this simple code but doesnīt work properly:
>
> Private Sub CommandButton2_Click()
> ActiveSheet.Name = ActiveSheet.Range("B1").Value
> End Sub
>
>
>
> For instance: The cell has content : 05/4103/01 and I need to get this
> into Listīs name field.
>
> My procedure returns only 5410301 as a List name
>
>
> Thank you for your advices
>
>
> --
> Toman
> ------------------------------------------------------------------------
> Toman's Profile:
> http://www.excelforum.com/member.php...o&userid=31397
> View this thread: http://www.excelforum.com/showthread...hreadid=514795
>

[Norman Jones]

Hi Toman,

> Changing the slash for (say) a hyphen, your code worked for me.

Or, more explicitly:

ActiveSheet.Name = _
Format(ActiveSheet.Range("B1").Value, "00-0000-00")


---
Regards,
Norman

[Toman]

Thank you Norman.
Now it is working perfectly