Delete specific number or sheets with VBA

[DK340]

I am trying to find macro coding that will delete worksheets automatically. For example, if I have a spreadsheet that has sheets 1 thru 50, I want to have the macro automatically find the last sheet (sheet 50) and count back until if finds sheet 31, then delete all sheets beyond sheet 31 (32-50 to be deleted). The number of sheets may vary from 50 to 40, but can a macro be written find the last sheet and delete all sheets above the 31st sheet?

Thanks

 

[S M C]

Sub DeleteSheets()
    Dim lngLoop As Long
    
    If ThisWorkbook.Worksheets.Count > 30 Then
        Application.DisplayAlerts = False
        For lngLoop = ThisWorkbook.Worksheets.Count To 31 Step -1
            ThisWorkbook.Worksheets(lngLoop).Delete
        Next lngLoop
        Application.DisplayAlerts = True
    End If
    
End Sub

 

[DK340]

This works great but I do have one more question. I want to use this as a personal macro so that I can use it on random pages, not specific to one workbook. When I try this as a personal macro it doesn't work. Do you know the fix?

 

[S M C]

Replace ThisWorkbook with ActiveWorkbook

 

[DK340]

Thank you so much. That fixed the problem.