Обработка кода если на листе текст не был найден - VBA

Формулировка задачи:

Добрый день! В VBA новичок)))) Скажите мне как проверить результат? Есть код который на листе ищет заданное значение и вставляет его в указанную ячейку. Как мне сделать, чтобы если он не нашел значение, то пропустил часть кода?

                    Листинг программы
                
 
                        
                          
                    
  'poisk
    Dim ispol As String
    ispol = "Windows"
    Cells.Find(What:=ispol, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
    , SearchFormat:=False).Activate
 
    'вставляем найденное значение
    'opredeljaem adress jacheyki (bukva, csifra)
    Dim buk, nom, adr, fio As String
    buk = Split(ActiveCell.Address(, False), "$")
    nom = Val(buk(1))
    buk = buk(0)
        adr = buk + CStr(nom) 'preobrazovanie
        fio = Replace(Range(adr).Value, "Windows: ", "") 'sokhranjaem stroku
    Range("C20") = fio

Решение задачи: «Обработка кода если на листе текст не был найден»

textual
                            Листинг программы 
                        
 
                        
                          
                    
'poisk
    Dim ispol As String
DIM RN AS RANGE
    ispol = "Windows"
SET RN=Cells.Find(What:=ispol, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
    , SearchFormat:=False)
 
'    Cells.Find(What:=ispol, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
'    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
'    , SearchFormat:=False).Activate
 
IF NOT RN IS NOTHING THEN
 
    'вставляем найденное значение
    'opredeljaem adress jacheyki (bukva, csifra)
    Dim buk, nom, adr, fio As String
    buk = Split(RN.Address(, False), "$")
    nom = Val(buk(1))
    buk = buk(0)
        adr = buk + CStr(nom) 'preobrazovanie
        fio = Replace(Range(adr).Value, "Windows: ", "") 'sokhranjaem stroku
    Range("C20") = fio
 
ENDIF