Macro Statement To Select Cell in a Column that Begin with a Letter

[dmcgetti]

Just like the title states, I need to select all of the cells in

Range("Table1[[#Headers],[PO'#]]")

that begin with a letter, there is both numbers and letters in the table and it is sorted "A-Z" already.

Thanks in Advance!

 

[Fluff]

How about

   Range("Table1[PO'#]").SpecialCells(xlConstants, xlTextValues).Select

 

[dmcgetti]

How about

   Range("Table1[PO'#]").SpecialCells(xlConstants, xlTextValues).Select

Some of the cells the start with a number contain text in them as well...

 

[dmcgetti]

I think something along the lines of this might work

InStr(1, Range[COLOR=#333333]("Table1[PO'#]")[/COLOR], "[A-Z]", vbBinaryCompare)

but I don't know if there is a way to search for "Any" text, "[A-Z]" doesn't work.

 

[Fluff]

Ok how about

Dim rng As Range
Dim Cl As Range
For Each Cl In Range("Table1[PO'#]")
   If Not IsNumeric(Left(Cl, 1)) Then
      If rng Is Nothing Then Set rng = Cl Else Set rng = Union(rng, Cl)
   End If
Next Cl
rng.Select

 

[dmcgetti]

Thanks that works!

Now, can you explain it, I need to do it a 2nd time in another column and I am not fully comprehending.

 

[Fluff]

Dim rng As Range
Dim Cl As Range
For Each Cl In Range("Table1[PO'#]")      'Loops through the PO column
   If Not IsNumeric(Left(Cl, 1)) Then     'Checks if the first character is a number
      If rng Is Nothing Then Set rng = Cl Else Set rng = Union(rng, Cl) 'Creates a range of all cells that do not start with a number
   End If
Next Cl
rng.Select  'selects the range

Added comments

 

[dmcgetti]

Dim rng As Range
Dim Cl As Range
For Each Cl In Range("Table1[PO'#]")      'Loops through the PO column
   If Not IsNumeric(Left(Cl, 1)) Then     'Checks if the first character is a number
      If rng Is Nothing Then Set rng = Cl Else Set rng = Union(rng, Cl) 'Creates a range of all cells that do not start with a number
   End If
Next Cl
rng.Select  'selects the range

Added comments

Thank You!!

 

[Fluff]

You're welcome