Is somebody able to tell me what's wrong with this code here?

I'm simply trying to delete a worksheet in my activeworkbook based off of a variable name located in a cell below.

I feel confident that this should be working based on the way that I have written it, but it's not doing what it's supposed to.

Instead of completely deleting the worksheet, it's only deleting the "name" of the worksheet, and replacing it with zero "0".

Sub DelVarWs()

Dim sName As Integer, ws As Worksheet

On Error Resume Next
sName = ActiveCell.Offset(1, 0).value
Set ws = ThisWorkbook.Worksheets(sName)
    
Application.DisplayAlerts = False
ws.Select
ws.Delete
Sheet1.Select
Application.DisplayAlerts = True

End Sub