Help with debugging a VBA code

**soniajaswal** · 01-17-2011, 06:00 AM

Hello, I am new to VBA programming in excel. Can you'll help me with debugging the following code, i get an error '13' while executing.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("K5").Value = "We are good"
If CheckBox1.Value = False Then Range("K5").Value = "Follow up"
End Sub

Private Sub CommandButton1_Click()
Dim fdate As Date
Dim sdate As Date
Dim n As Integer
fdate = DateValue(startDate)
sdate = DateValue(sendDate)
n = DateDiff("d", fdate, sdate)
MsgBox n
End Sub


Private Sub TextBox1_Change()
Dim startDate As String
startDate = Worksheets("Sheet1").TextBox1.Value


End Sub

Private Sub TextBox2_Change()
Dim endDate As String
endDate = Worksheets("Sheet1").TextBox2.Value
End Sub

**davesexcel** · 01-17-2011, 07:08 AM

Maybe you should explain which code gives you the error.....

Private Sub CommandButton1_Click()

    Dim n, a As Date, b As Date

    a = Range("StartDate")
    b = Range("sendDate")

    n = DateDiff("d", a, b)

    MsgBox n

End Sub

**soniajaswal** · 01-21-2011, 05:31 AM

[

This is where i get an error:

Private Sub CommandButton1_Click()
Dim fdate As Date
Dim sdate As Date
Dim n As Integer
fdate = DateValue(startDate)
sdate = DateValue(sendDate)
n = DateDiff("d", fdate, sdate)
MsgBox n
End Sub