Den heter ju LEFT precis om du säkert misstänker.

Tänk på att du också kan använda följande tecken i bladnamnet    - : \ / ? * [ ]
och att dessa i så fall måste ersättas med "" eller annat godtagbart.

ex bladnamn från cell A1

Dim strWSName As String

strWSName = Left(Range("A1").Value, 31)
strWSName = Replace(strWSName, "[", "")
ActiveSheet.Name = strWSName

Hälsningar
Henrik