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