I'm using this code to name tabs in a workbook when being a sinlge Workbook is split into multiple Worksheets:

 If Not WsExists(Left(MyArr(Itm), 31), ThisWorkbook) Then
            Set xlWsTrgt = Worksheets.Add(After:=Worksheets(Worksheets.Count))
            xlWsTrgt.Name = Left(MyArr(Itm), 31)
        Else
            Set xlWsTrgt = Worksheets(Left(MyArr(Itm), 31))
            xlWsTrgt.Move After:=Sheets(Sheets.Count)
            xlWsTrgt.Cells.Clear
        End If
Wat is the correct syntax to use if I want to append the filename, for example, if I wanted to add 'ABC' at the start of each tab name or 'XYZ' at the end of each tab name, whilst maintaining the 31 characcter limit?

Many thanks