Exceeding Characters

Hi Rebecca

Thank you for your question

First let me aplologise for the delay in replying to your question. We have had very high volumes of posts and as a result there have been a number of delays in responding questions.

Assuming you haven't already resolved the issue, can I suggest you email me a copy of the workbook to stephenATstl-training.co.uk and I will consider the problem as a matter of urgency

Regards

Stephen

Hi Rebecca

Thanks for your question and for the file

I have looked at the problem, and the first thing to state is that you cannot exceed the maximum name length and therefore you need a strategy for naming your sheets. As any company name that exceeds the maximum length will comprise two or more words, I suggest just using the first word of the name as the sheet title. For example "Best Training", would become be titled "Best".

I have modified your AskForSupplier procedure as follows

Sub AskForSupplier()





Dim intLength As Integer

Dim strTitle As String



   

Call DeleteSheetIfExists

   



Worksheets.Add after:=Worksheets(Worksheets.Count)



intLength = Application.WorksheetFunction.Find(" ", txtSupplier)



strTitle = Left(txtSupplier, intLength)



ActiveSheet.Name = strTitle

Sheets("C&I").Select

   

End Sub