Count Cells in Range
Tom & Jim: Thanks a ton!
"Jim Thomlinson" wrote:
This should be close...
Sub DoStuff()
Dim rngToSearch As Range
Dim rngFound As Range
Dim strFirstAddress As String
Set rngToSearch = Range("BidCatNum")
Set rngFound = rngToSearch.Find(What:="Y", _
LookIn:=xlValues, _
LookAt:=xlWhole)
If Not rngFound Is Nothing Then
strFirstAddress = rngFound.Address
Do
Call ChangeStuff(rngFound.Offset(0, 1))
Set rngFound = rngToSearch.FindNext(rngFound)
Loop Until rngFound.Address = strFirstAddress
End If
End Sub
Sub ChangeStuff(ByVal Target As Range)
MsgBox Target.Address
End Sub
--
HTH...
Jim Thomlinson
"Steve C" wrote:
I have a named range (non contiguous cells) going down several columns called
BidCatNum. Most of these cells contain the letter "Y". For each cell that
contains the letter "Y", I want to write code to perform an action on the
cell immediately to the right of it.
I'm not too experienced with the "For each cell in this range, do this"
lingo. Could someone get me started? Thanks!
|