Public Sub CellText(yPos As Long, xPos As Long, Optional Text As String = "", _
  Optional nextPos As eNextPos = GoRight, Optional OnlyTextStyle As Boolean = _
  True)
    If yPos <= 0 Then yPos = 1
    If xPos <= 0 Then xPos = 1
    If OnlyTextStyle = True Then Text = "'" & Text
    With dynEXCEL.Excel
        .Cells(yPos, xPos).Value = Text
        Select Case nextPos
            Case GoRight
                xPos = xPos + 1
            Case GoLeft
                xPos = xPos - 1
            Case GoDown
                yPos = yPos + 1
            Case GoUp
                yPos = yPos - 1
            Case Else
        End Select
        'If yPos <= 0 Then yPos = 1
        'If xPos <= 0 Then xPos = 1
        '.Cells(yPos, xPos).Select
    End With
End Sub