renaming worksheets that greater than 31 characters

[Robertson]

I am trying to rename a worksheet, however the name of the worksheet that is reffered to in my code is more than 31 characters long i am trying to achieve the outcome of the code bellow.

MyNameLen = Application.WorksheetFunction.Len(MyName)
If MyNameLen > 30 Then
MyName = Application.WorksheetFunction.Left(MyName, 30)
End If

 

[BrianB]

VBA has its own Len() function - so

    MyNameLen = Len(MyName)
    If MyNameLen > 30 Then
        MyName = Application.WorksheetFunction.Left(MyName, 30)
    End If

 

[BrianB]

VBA has its own Len() and Left() functions - so

    MyNameLen = Len(MyName)
    If MyNameLen > 30 Then
        MyName = Left(MyName, 30)
    End If

 

[GlennUK]

VBA also has it's own Left function too!!!!

 

[BrianB]

VBA also has it's own Left function too!!!!

I hadn't read the full code. Naughty me !
I still beat you to it by 1 minute !

 

[GlennUK]

Ha ha, that's how you beat me to it by 1 minute ... I was still reading the code.