Работа макроса на скрытом не активном листе - VBA

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

Добрый день, уважаемые. Такая проблема. Скажем есть макрос, который удаляет теги из ячеек.

                    Листинг программы
                
 
                        
                          
                    
Sub DeleteTgRisk()
Dim r As Range
Application.Unian(Range("J2:J50"),Range("P:P50")).Select
Selection.NumberFormat="@"
With CreateObject("vbscript.regexp")
.Pattern="\<.*?\>"
.Global=True
For Each r In Selection
r.Value=Replace(.Replace(r.Value, ""), "&nbps;", " ")
r.Value=Replace(.Replace(r.Value, ""), "#160;", " ")
r.Value=Replace(.Replace(r.Value, ""), "&quot;", " ")
 
next r
End With
End Sub

Все хорошо, только вот хотелось бы чтоб макрос мог обрабатывать данные на скрытом не активном листе. Я так понимаю тут нужно как то избавляться от селектов и по другому обращаться к ячейкам. Подскажите пожалуйста )))

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub DeleteTgRisk()
    Dim r As Range, t$
    Set r = Worksheets("Имя_скрытого_рабочего_листа").[J2:J50,P2:P50]
    r.NumberFormat = "@"
    
    With CreateObject("VBScript.RegExp")
         .Pattern = "\<.*?\>"
         .Global = True
         For Each r In r
             t = .Replace(r.Value, "")
             t = Replace(t, "&nbps;", " ")
             t = Replace(t, "#160;", " ")
             t = Replace(t, """, " ")
             r.Value = t
         Next
    End With
End Sub