Hidden Rows - Unhide ?

[Logit]

.
Presently utilizing this macro to unhide rows :

Sub Unhide()
Dim lRow As Long
Dim i As Long

'Find the last non-blank cell in column A(1)
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("D30").Value = Now()
Application.ScreenUpdating = False

For i = 1 To lRow 'Now we loop through each row and check for required criteria
    
    'To hide all the rows with the text data /strings  in Column A
    If IsNumeric(Range("A" & i)) = True Then Rows(i).EntireRow.Hidden = False

Next
Range("E30").Value = Now()
Application.ScreenUpdating = True

End Sub

With 100,000 rows the macro requires precisely 15 seconds.

Is there an edit to the existing macro ... or a different macro that would reduce the time ?

Thank you for your assistance.