[RESOLVED] Find specific data in sheet name

[billhuard]

Hi guys,

now I need to find specific data in sheet name
all sheets name in the workbook are on the same pattern.
Here is the patern: "XXX YYY ZZZ"

All X, Y and Z are variable in lenght and they are seperate with a space.

I need the value of Z but how to find it with a variable lenght????

Thanks

Here is my code with where I need to introduce de tricky "last part of the sheet name"

With Workbooks(lcFileName)
            For lnSheetId = 2 To .Sheets.Count
            ' sheet 1 is Dept... now starting from sheet 2 check if it is Ss-Dept
                If Not IsNumeric(.Sheets(lnSheetId).Name) And Len(Trim(.Sheets(lnSheetId).Name)) > 3 Then
                    SsDept = .Sheets(lnSheetId).Name
 
                    'Need to find the specific data HERE
                    'Need to find the specific data HERE
 
 
                    SsDeptIndex = Workbooks(fullname).Sheets(tsNameFile & " " & SsDeptName).Index - 1 'marche pas
                    
                    'if sheet already exists in the Department Workbook
                    If SheetExists(fullname, SsDept) = True Then
                        Workbooks(fullname).Sheets(SsDept).Delete
                    End If
                    .Sheets(SsDept).Copy After:=Workbooks(fullname).Sheets(SsDeptIndex)
                End If
            Next lnSheetId
        End With