[RESOLVED] Help make coding smaller as its making my program slow

[frankwhite]

Hi guys

i have the following coding which removes some data in the cells in my excel program, is it possible to cut down the coding?

InStr(1, rng.Offset(0, intCounter).Value, "01/", vbTextCompare) > 0 Or _ 
 InStr(1, rng.Offset(0, intCounter).Value, "02/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "03/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "04/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "05/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "06/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "07/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "08/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "09/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "10/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "11/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "12/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "13/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "14/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "15/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "16/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "17/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "18/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "19/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "20/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "21/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "22/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "23/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "24/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "25/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "26/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "27/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "28/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "29/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "30/", vbTextCompare) > 0 Or _ 
   InStr(1, rng.Offset(0, intCounter).Value, "31/", vbTextCompare) > 0 Or _

Thanks