Excel Marco set range.address

Question

このコードにはポップウィンドウがあり、範囲を尋ねます。
修正範囲を設定しようとしています。
私は次のことを試してみましたが、それらの非が

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

オリジナルコード作業している： `Range`に引数を使用している場合

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")