Run-time error '91':

[Patriot2879]

Hi hope you can help me please, i have the following code below which works fine for me it does a count into my Textbox2, but i then get a 'Run'time error '91: Object variable or With block variable not set. Please can you help me, it also comes up highlighted yellow for UserForm1.

Private Sub userform_initialize()
With UserForm1.TextBox2
Dim j As Long
j = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets("In Day VL").Range("A:A"), "CAG")
 UserForm1.TextBox2.Value = j
End With
UserForm1.Show
End Sub

 

[Phuoc]

Private Sub userform_initialize()
Dim j As Long
j = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets("In Day VL").Range("A:A"), "CAG")
 UserForm1.TextBox2.Value = j
End Sub

 

[Patriot2879]

Private Sub userform_initialize()
Dim j As Long
j = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets("In Day VL").Range("A:A"), "CAG")
 UserForm1.TextBox2.Value = j
End Sub

This now works thank you, is there any way for it to count 'CAG' even if i have a name infront of it? ie 'Joe Blogs CAG'? i would still want it to count this CAG is there any way of doing that?

 

[Phuoc]

Yes, change to:

j = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets("In Day VL").Range("A:A"), "*CAG")

 

[Patriot2879]

Yes, change to:

j = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets("In Day VL").Range("A:A"), "*CAG")

Marvellous thank you so much for your help