How to add OnError vba on my current subroutine?

[eshnider21]

I tried adding OnError on my current sub. I success adding it but it always shows the Error message even there is no error. How to add the OnError correctly?


Public Sub Searcher()
Dim wss As Integer
wss = Application.InputBox("Please enter Sheet Number", "Sheet Select", Type:=1)
With ThisWorkbook.Worksheets(wss)
.Select
.Activate
End With
End Sub

 

[smozgur]

Post #2 has the solution to this question. Therefore, I switched the solution post accordingly.

@eshnider21 - In your future questions. please mark the post as the solution that answered the question as it will help future readers. No further action is required for this thread.

 

[eshnider21]

Post #2 has the solution to this question. Therefore, I switched the solution post accordingly.

@eshnider21 - In your future questions. please mark the post as the solution that answered the question as it will help future readers. No further action is required for this thread.

Okay. Thank you smozgur. Sorry I was looking for the edit post last time to mark it as "Solved" but this forum is different. Thank you for informing me how to close threads here.

 

[smozgur]

Okay. Thank you smozgur. Sorry I was looking for the edit post last time to mark it as "Solved" but this forum is different. Thank you for informing me how to close threads here.

No problem at all. In the MrExcel Message Board, we mark the solution posts instead of closing the threads. This way, it is easier to jump to the solution that solved the problem for future readers.

Thanks for the feedback.