Looking to make this macro Faster|VBA & Macros|Excel Forum|My Online Training Hub

Sub STEP15() Dim r As Long Dim m As Long Dim wb1 As Workbook Set wb1 = Workbooks.Open("C:\Users\WolfieeeStyle\Desktop\HotStocks\1.xls") Set ws1 = wb1.Worksheets.Item(1) Application.ScreenUpdating = False With ws1 m = .Range("A" & .Rows.Count).End(xlUp).Row For r = 2 To m If .Range("H" & r).Value < .Range("D" & r).Value Then .Range("K" & r).Value = Application.Ceiling(.Range("K" & r).Value, 0.05) .Range("K" & r).NumberFormat = "0.00" Else .Range("K" & r).Value = Application.Floor(.Range("K" & r).Value, 0.05) .Range("K" & r).NumberFormat = "0.00" End If Next r End With Application.ScreenUpdating = True wb1.Save wb1.Close End Sub