Excel forcing me to close the file.

[VbMac]

Guys,



Help please!

Im trying to figure out what’s the problem here, I’ve checked all the areas but still im getting the same error. Excel keeps on pushing to restart or close my template.


Here’s what happened.

When I have entered a numeric values in my target cell, excel works fine. But if I change it to alphanumeric or any characters other than numbers after I terminate the window that’s when excel forcing me restart or close the template.


Heres the code I’ve wrote:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 

If Target.Column = 1 Then

    If Target.Row > 1 Then

 

        With UserForm1

            Dim wb As Workbook

            Dim ws As Worksheet

            Set wb = ThisWorkbook

            Set ws = wb.Sheets(1)

            Dim i, c As Integer

 

            c = 1

            i = ActiveCell.Row

            .TextBox1.Text = ws.Cells(i, c)

            .Show

        End With

 

    End If

End If

 

End Sub

Thank you in advance guys.

Btw, My OS version is Win7 enterprise 32bit and 2010 version 14.0 for my Ms office.