Can't get a simple multiply macro working

[Hyflex]

Sub Test()
Range("J:S").SpecialCells(xlCellTypeConstants, xlNumbers).Select
        With Selection
            .Cells.Value = .Cells.Value * 2.5
        End With
End Sub

I want All cells with numbers in to be multiplied by 2.5 but if its a blank or zero to ignore the cells

 

[jeffreybrown]

I ran a quick test on 100,000 cells worth of data in which some were blank and the macro ran in 10 seconds.

 

[Hyflex]

Fixed with:

Sub test()

Dim rng As Range
Dim c As Range
Dim LR As Long
LR = Range("S" & Rows.Count).End(xlUp).Row
Set rng = Range("S1:J" & LR).SpecialCells(xlCellTypeConstants, xlNumbers)
Application.ScreenUpdating = False
For Each c In rng.Cells
If c.Value <> "" Then
c.Value = c.Value * 2.5
End If
Next
Application.ScreenUpdating = True

End Sub

 

[jeffreybrown]

Glad you got it working, but for whatever reason that macro seems to take a considerable more time.

Over a minute versus ten seconds. Granted on a probably a larget dataset, but a test none the less