상한치/하한치 를 검색해서 메세지박스로 행 / 셀 나열시키고 싶습니다

Sub 상한치()
 
Dim rng As Range
 
Dim cell As Range
Dim cell2 As Range
 
Dim findString As String
Dim findString2 As String
 
Set rng = Worksheets("Check_Sheet").Columns("AK:BP")
 
findString = "상한치"
findString2 = "하한치"
 
Set cell = rng.Find(What:=findString, LookIn:=xlValues, _
                    LookAt:=xlWhole, MatchCase:=False)
 
Set cell2 = rng.Find(What:=findString2, LookIn:=xlValues, _
                    LookAt:=xlWhole, MatchCase:=False)
 
If cell Is Nothing Then
 
Else
MsgBox "? 행 ? 셀 상한치가 발생하였습니다" & Chr(10) & "? 행 ? 셀 하한치가 발생하였습니다" & Chr(10) & "? 행 ? 셀 하한치가 발생하였습니다"
 
End If
 
End Sub