renaming worksheets that greater than 31 characters

Robertson

New Member
Joined
Jul 1, 2005
Messages
5
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
 

Some videos you may like

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.

BrianB

Well-known Member
Joined
Feb 17, 2003
Messages
8,127
VBA has its own Len() function - so
Code:
    MyNameLen = Len(MyName)
    If MyNameLen > 30 Then
        MyName = Application.WorksheetFunction.Left(MyName, 30)
    End If
 

BrianB

Well-known Member
Joined
Feb 17, 2003
Messages
8,127
VBA has its own Len() and Left() functions - so
Code:
    MyNameLen = Len(MyName)
    If MyNameLen > 30 Then
        MyName = Left(MyName, 30)
    End If
 

GlennUK

Well-known Member
Joined
Jul 8, 2002
Messages
11,402
Ha ha, that's how you beat me to it by 1 minute ... I was still reading the code. :biggrin: :) :p
 

Watch MrExcel Video

Forum statistics

Threads
1,118,909
Messages
5,574,983
Members
412,630
Latest member
Eireangel
Top