selecting multiple cell

[Olamide]

Gentlemen,

Using VBA, is it posible to select all the cells in column A which their
value fall in between 5 and 10
i.e select all cells in columnA >=5 and =< 10

 

[Bob Flanagan]

Try the following:

Sub SelectCells()
Dim cell As Range
Dim selectedCells As Range
For Each cell In Selection
If cell.Value >= 5 And cell.Value <= 10 Then
If selectedCells Is Nothing Then
Set selectedCells = cell
Else
Set selectedCells = Union(selectedCells, cell)
End If
End If
Next
If selectedCells Is Nothing Then
MsgBox "No cells between 5 and 10 found"
Else
selectedCells.Select
End If
End Sub

Bob Flanagan
Macro Systems
144 Dewberry Drive
Hockessin, Delaware, U.S. 19707

Phone: 302-234-9857, cell 302-584-1771
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel