VBA Code not looping each sheet

[jamescooper]

Hello,

This code doesn't appear to loop through each sheet, any reason why?

Thanks.

Sub Sheet_Loop()

sheet_count = ActiveWorkbook.Worksheets.Count

'loop through the worksheets in the workbook
For a = 1 To sheet_count

    Range("D10:D1000").Select
        With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
        End With
    
    Range("E10:E1000").Select
    With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
    End With
    
    Range("F10:F1000").Select
    With Selection
        Selection.NumberFormat = "General"
        .Value = .Value
    End With

Next a

End Sub

 

[Michael M]

How about

Sub MM1()
Dim ws As Worksheet
For Each ws In Worksheets
    With Range("D10:F1000")
        .NumberFormat = "General"
        .Value = .Value
    End With
Next ws
End Sub

 

[jamescooper]

Thanks - that's still not working sadly?

 

[Michael M]

Thanks - that's still not working sadly?

OK...not working doesnt tell us much....any of the sheets protected ??

 

[jamescooper]

Nothing is protected.

It doesn't solve all the sheets, it is almost like it doesn't go into the next sheet?

 

[Michael M]

Change to

Sub MM1()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws.Range("D10:F1000")
        .NumberFormat = "General"
        .Value = .Value
    End With
Next ws
End Sub

Nothing is protected.

It doesn't solve all the sheets, it is almost like it doesn't go into the next sheet?

Did you try the amended code ??

 

[aRandomHelper]

You need to qualify the Range with ws

With ws.Range("D10:F1000")

 

[jamescooper]

Thanks that worked.