find and select all cells with a alphabetic character
Building on Gary's reply to your first post
Sub buildrange()
Dim rng As Range
Dim cell As Range
Set rng = Nothing
For Each cell In ActiveSheet.UsedRange
If cell.Value = "a" or cell.Value = "b" or _
cell.Value = "c" or cell.Value = "d" Then
If rng Is Nothing Then
Set rng = cell
Else
Set rng = Union(rng, cell)
End If
End If
Next cell
If Not rng Is Nothing Then
rng.Select
End If
End Sub
if you mean all cells containing a string constants
Cells.specialCells(xlConstants,xlTextValues).Selec t
--
Regards,
Tom Ogilvy
"Giz" wrote in message
...
I am trying to create a macro that finds, on a worksheet, all cells with
an
alphabetic character (i.e. "a" or "b" or "c", etc.), and then selects
them.
ANy ideas??
|