Sorry for a really daft question, I’ve trawled the internet trying t
find this particular method of extract the range value. I have a loo
that looks for cells that contact a particular value, one a cell i
found it should call another sub passing the cell name i.e B3 as a
argument.

Sub FindValueOfCell()
For Each Cell In Range("A1:L40")
If Cell.Value = "Apple" Then
Call DrawBordersFunction(Pass range value to other sub?)
End If
Next
End Su

--
webby200
-----------------------------------------------------------------------
webby2006's Profile: http://www.excelforum.com/member.php...fo&userid=3674
View this thread: http://www.excelforum.com/showthread.php?threadid=56901

Sub FindValueOfCell()
For Each cell In Range("A1:L40")
If Trim(LCase(cell.Value)) = Trim(LCase("Apple")) Then
MsgBox cell.Address
End If
Next
End Sub

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"webby2006" wrote:
|
| Sorry for a really daft question, I've trawled the internet trying to
| find this particular method of extract the range value. I have a loop
| that looks for cells that contact a particular value, one a cell is
| found it should call another sub passing the cell name i.e B3 as an
| argument.
|
| Sub FindValueOfCell()
| For Each Cell In Range("A1:L40")
| If Cell.Value = "Apple" Then
| Call DrawBordersFunction(Pass range value to other sub?)
| End If
| Next
| End Sub
|
|
| --
| webby2006
| ------------------------------------------------------------------------
| webby2006's Profile:
http://www.excelforum.com/member.php...o&userid=36744
| View this thread: http://www.excelforum.com/showthread...hreadid=569010
|

Dave
Perfect thank you.


Dave Patrick Wrote:
Sub FindValueOfCell()
For Each cell In Range("A1:L40")
If Trim(LCase(cell.Value)) = Trim(LCase("Apple")) Then
MsgBox cell.Address
End If
Next
End Sub

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect


|


--
webby2006
------------------------------------------------------------------------
webby2006's Profile: http://www.excelforum.com/member.php...o&userid=36744
View this thread: http://www.excelforum.com/showthread...hreadid=569010

You're welcome.

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"webby2006" wrote:
|
| Dave
| Perfect thank you.