Adding Sheet and row address to MsgBox

[DThib]

Well this is probably an easy answer but all I have tried gives me an error.
This is the part that works as intended but I cannot derive the sheet name where found and the row it was found on that sheet.

            ElseIf rng Is Nothing Then
              Set ra = ActiveSheet.Cells.Find(What:=SPR_W, LookIn:=xlFormulas, LookAt:=xlPart, _
                SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
                MsgBox "The information is found in " & vbCrLf & " worksheet:" _
                & vbCrLf & [COLOR=#b22222][B]Sheet.name[/B][/COLOR], vbInformation + vbOKOnly, "Wrong worksheet"

DThib

 

[Fluff]

You're welcome & thanks for the feedback