Loop for all worksheet

[Chandresh]

Hi team,

can anyone help me looping below macro for all the worksheet in workbook stuckup while looping


Sub Loopforall()

On Error Resume Next
For Each cell In Range("C3:C250000,E3:E250000,Q3:Q250000,S3:s250000").SpecialCells(xlCellTypeConstants, xlNumbers)
If Icell.Value > 0 Then cell.Value = -cell.Value
Next cell

Range("G26658,C:C,E:E,Q:Q,S:S").Select
Range("S26636").Activate
Selection.NumberFormat = "0"
Selection.NumberFormat = "0.00"
Range("A1").Activate
End Sub

 

[Joe4]

It looks like you have posted this question here too and gotten responses: https://www.mrexcel.com/forum/excel...l-data-column-negative-value.html#post5068923

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).