Display Row & column number in MsgBox

**Astroboy142** · 12-01-2009, 11:36 AM

I am trying to display the row & column number in a MsgBox. Therefore, my MsgBox should display something like:

MsgBox "Apple is in cell A1"

**Andy Pope** · 12-01-2009, 11:44 AM

Is the message box reporting details of the activecell? If not what cell should be reported.

activecell

Msgbox activecell.value & " is in cell " & activecell.address

A1 of activesheet

Msgbox Range("A1").value & " is in cell " & Range("A1").address

**Astroboy142** · 12-01-2009, 11:53 AM

My macro is in Sheet2 and finds a value from Sheet1 and stores it in Result.

Therefore,

I want a message box stating

MsgBox Result & " is in cell" & ______________

here's a copy of my code:

If WorksheetFunction.CountIf(Sheets("Schedule; Jan-Jun").Range("Data"), "S") > 0 Then
With Sheets("Schedule; Jan-Jun").Range("Data")

vOurResult = .Find(What:="S", After:=.Cells(1, 1), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
End With

MsgBox vOurResult & " is in Cell" &
End If
End Sub

**Andy Pope** · 12-01-2009, 12:05 PM

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

dim rngOurResult as range

set rngOurResult = .Find(What:="S", After:=.Cells(1, 1), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)

if not rngOurResult is nothing then
    MsgBox vOurResult.value & " is in cell " & vOurResult.address
else
   Msgbox "Nothing found"
end if

If you make the returned variable a range object then you will have the information you need.

**Astroboy142** · 12-01-2009, 02:35 PM

Thanks for the help! I had to tweak it a bit but it worked out. Sorry about not staying in compliance with the Forum rules. I'm a newbie to the whole forum deal. I will try to follow the "rules"