Try something like

Dim TotalRng As Range
Dim Rng As Range
For Each Rng In _
Application.Intersect(ActiveSheet.UsedRange,
ActiveSheet.Columns(1)).Cells
If Rng.Text = "e" Or Rng.Text = "b" Then
If TotalRng Is Nothing Then
Set TotalRng = Rng
Else
Set TotalRng = Application.Union(TotalRng, Rng)
End If
End If
Next Rng
TotalRng.Select


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com





"Rob" wrote in message
...
I want to select specific records that match a criteria in a
column.
Basically I want to select records where the column has either
an "e" or a
"b". No blanks. Can somebody help me?