Excel Marco set range.address

Question

Этот код будет иметь всплывающее окно с запросом диапазона.
Я пытаюсь установить диапазон исправлений.
Я попытался следующие, но не из них работают

Set WorkRng.Address = Shee1.Range(A1, O300) 
Set WorkRng = Shee1.Range(A1, O300) 

Оригинальный код:

xTitleId = "KutoolsforExcel" 
Set WorkRng.Address = Worksheets("Sheet1").Range(A1, O300 
Set WorkRng = Application.Selection` 
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) 
xStr = Application.InputBox("Text", xTitleId, "", Type:=2) 
Application.ScreenUpdating = False 
For i = WorkRng.Rows.Count To 1 Step -1 
    Set xRow = WorkRng.Rows(i) 
    Set rng = xRow.Find(xStr, LookIn:=xlValues) 
If rng Is Nothing Then 
     xRow.Delete 
    End If 

Answer 1

Set WorkRng = Application.Selection 
Set WorkRng = ActiveSheet.Range("E1:E800")