B4J Question XLUtils how to activate sheet

[danchovasilev]

Private Sub ActivateSheet(workbook As XLWorkbookWriter, SheetName As String)
    Dim sheets As List = workbook.PoiWorkbook.GetSheetNames
    If (sheets.Size > 1) Then     
        For i = 0 To (sheets.Size - 1)   
            Log("sheets.Get(" & i & ")=" & sheets.Get(i))
            Dim mST As String = sheets.Get(i)
            If mST = SheetName Then
                Log("ActivateSheet(" & i & ") - " & SheetName)
                workbook.ActiveSheetIndex = i
            End If
        Next
    End If
End Sub