Code:Sub converttt() Dim Found As Range Dim sMessage As String Dim s As String Dim d As String ' Set Found = Columns("A").Find(What:="Orkis", After:=[A1], LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Found Is Nothing Then sMessage = "No Match Found for ""Orkis""" & vbCr Else s = Found.Address sMessage = """Orkis"" found in cell " & s & " Row: " & Found.Row & vbCr End If MsgBox sMessage With Range(ActiveCell, Found) .Value = .Value End With End Sub
Bookmarks