View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
kaon[_11_] kaon[_11_] is offline
external usenet poster
 
Posts: 1
Default Look for numbers in a cell

Hi all,

I spent some time in another solution for looking account number from
worksheet, but no progress at all :(

In the first column of worksheet, there are some cells which are mad
up of names and an unique account number (6-digit-form).

However, some cells are padded with spaces, i.e.
123456 ABC
123457 CDE
345678 EFG

I would like to find all cells with account number out and highligh
them.

My code:
Sub find_Acct()
Dim result As Integer, c As Range

For Each c In ActiveSheet.Columns(1)
If IsNumeric(Left(Trim(c.Value), 6)) Then
'Highlight the cell
End If
Next c
End Sub

Any help is appreciated

--
Message posted from http://www.ExcelForum.com