vba excel - if not statement exiting early

[devofish]

I've managed to get this code started, but am finding difficulty seeing what's going on here. The message box never occurs when the inputbox input is "". The selection delete part works, but anything past that does not execute. I've made several attempts at restructuring the if not to if else, but nothing seems to stick. Any wisdom here? Much appreciated.

Public Sub Process()        
    On Error Resume Next   
    Set wb = ThisWorkbook
    Set ws = wb.Sheets(2)
        With ws
            .Range("A2").Select
            On Error GoTo 0
            Set xRg = Application.InputBox("Please select the first survey after landing (and/or casing) depth:", "Select", xTxt, , , , , 8)
            If Not xRg Is Nothing Then
                xRg.Offset(1, 0).Select
                Rows(ActiveCell.Row & ":" & Rows.Count).Delete
            End If '\\\\\\bust - routine exits here
            If xRg = "" Then
                MsgBox "No processing occurred.", vbInformation, "Exit"
                Exit Sub
            End If
        End With
        Call Export 'evidence of call not run
        ws.Delete 'evidence of ws is not deleted
End Sub

 

[shg]

Take out the On Error statement and see where the error occurs.

 

[devofish]

object required error on

Set xRg = Application.InputBox("Please select the first survey after landing (and/or casing) depth:", "NexGen", xTxt, , , , , 8)

 

[shg]

xRng should be declared as a Range variable. I don't see it declared at all.

 

[devofish]

Apologies for the delayed response. It was declared outside the routine. When I cancel the routine, it errors on xRg =.

Public Sub Begin_Macro()
    OptimizeCode_Begin
    Set wb = ThisWorkbook
    Set ws = wb.Sheets(1)
    Set rng = ws.Range("A2")
        With ws
            If WorksheetFunction.CountA(rng) <> 0 Then
                GoTo 101
            Else
                MsgBox "No!"
                Exit Sub
            End If
        End With
101:
        For Each ws In Worksheets
            If ws.Name = "name" Then
                Sheets("name").Delete
                End
            End If
        Next       
        Sheets.Add.Name = "name"
        Set ws = wb.Sheets(1)
            With ws
                i = .Range("A" & Rows.Count).End(xlUp).Row
                .Range("A1:E1" & i).Copy
                Sheets("name").Range("A1").PasteSpecial xlPasteValues
            Application.CutCopyMode = False
            End With
    ProcessData
End Sub

Public Sub ProcessData()        
    Dim xRg As Range
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("name")
        With ws
            .Range("A2").Select
            Set xRg = Application.InputBox("Please select the first point after landing:", "NexGen", xTxt, , , , , 8)
            If Not xRg Is Nothing Then
                xRg.Offset(1, 0).Select
                Rows(ActiveCell.Row & ":" & Rows.Count).Delete
            End If
            If xRg = "" Then
                MsgBox "No processing occurred.", vbInformation
                Exit Sub
            End If
        End With
    OptimizeCode_End
End Sub