Is there error on this visual basic code?

Question

Option Explicit

Private Sub CommandButton1_Click()

End Sub

Private Sub cmdCreateFile_Click()

    Dim ColumnToSkip As Integer

    Dim FileNumber As Integer

    Dim K As Integer

    Dim Limit As Integer

    Dim LastColumn As Integer

    Dim Marker As Integer

    Dim StartColumn As Integer

    Dim Y As Integer

    Dim DataBucket As String

    Dim Filename As String

    Dim RangeName As String

    Dim RawData As Range

    StartColumn = 5

    ColumnToSkip = 16

    Filename = Trim(Range("I4"))

    Set RawData = Range("A6").CurrentRegion

    Limit = RawData.Rows.Count

    LastColumn = RawData.Columns.Count

    FileNumber = FreeFile

    Open Filename For Output As FileNumber

    Close FileNumber

    Kill Filename

    FileNumber = FreeFile

    Open Filename For Output As FileNumber

    For K = 5 To Limit

        If Trim(RawData.Cells(K, 2)) <> "" And Trim(RawData.Cells(K, 3)) <> "" Then

          'Row has some data to export

           For Y = StartColumn To LastColumn

               If Y <> ColumnToSkip Then

               If Val(Trim(RawData.Cells(K, Y))) <> 0 Then mismatch

                     DataBucket = Trim(RawData.Cells(K, 2)) & "," & Trim(RawData.Cells(2, Y)) & "," & Trim(Str(Val(Trim(RawData.Cells(K, Y)))))

                     Print #FileNumber, DataBucket

                  End If

               End If

           Next Y

        End If

    Next K

    Close FileNumber

    'RawData.Select

End Sub

Answer 1

Thank you. It works now.

Answer 2

Sub or Function is not defined

Answer 3

Do you get an error when you click the button?

If so: what does the error message say?