VBA to run on one sheet

I apologise for having to ask this but my VBA knowledge is non-existent. I have inherited a workbook which uses the below code to convert numbers from text to numbers in all sheets however the workbook is so large it is taking ages to run and it only actually needs to run on one sheet named Data. How can I edit it to only run on the one sheet?

Many thanks

Sub Numbers()
For Each WS In Sheets
On Error Resume Next
For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then r.Value = Val(r.Value)
Next
Next
End Sub