selecting multiple cell in a roll that falls withing a range

[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

 

[Bernard Liengme]

The subrountine below will do that, but if you just want to highlight them
do you know about Conditional Formatting?

Sub Check()
myrange = ""
For j = 1 To 100
mytest = Cells(j, 1).Value
If mytest >= 5 And mytest <= 10 Then
myrange = myrange & "A" & j & ","
End If
Next j
myrange = Mid(myrange, 1, Len(myrange) - 1)
'MsgBox myrange
Range(myrange).Select
End Sub

best wishes