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
|