Check for leading Chr in cell - VBA solution

[stuartgb100]

I'm getting lots of help from the Forum with trying to help a friend with his data (imported into Excel, and messy).
Many thanks.

The main elements have been dealt with, but I need to flag up the cells where problems may still exist.

The 'cleaned up so far data' is in col C, mainly text based.

As a first step, I would like to find a way to flag up any cell where the very first character is neither alphabetic or numerical.

The data in the col C cells should immediately begin with one of those, and not a space, special character, punctuation mark etc.

So, how can I check for this please ?

Regards and thanks.

 

[Fluff]

How about

Sub chk()
Dim cl As Range
For Each cl In Range("C2", Range("C" & Rows.Count).End(xlUp))
   If Not cl.Value Like "[0-9,a-z,A-Z]*" Then
      cl.Interior.Color = vbRed
   End If
Next cl
End Sub

 

[stuartgb100]

Thanks again Fluff.

I modified the code slightly:

Sub Chk_Leading_Character()

Dim cl As Range

With ActiveSheet
' For Each cl In Range("C2", Range("C" & Rows.Count).End(xlUp))
For Each cl In .Range("B2049:B2051")
If Not IsEmpty(cl) Then
If Not cl.Value Like "[0-9,a-z,A-Z]*" Then
cl.Interior.Color = vbRed
End If
End If
Next cl
End With
End Sub

Question please:

Some apparently 'empty' cells cause no problems.
However, some cause a Type Mismatch.

Is Excel 'seeing' something in these problem cells?

 

[Fluff]

Do you have any formulae in those cells?

 

[stuartgb100]

Shouldn't be, since this was an import of data from an external source into a new workbook.
However, how do I check ?

"If hasformula" ?

 

[Fluff]

Try =isblank(A1) change A1 to one of the problem cells