Running Macro based upon the value of a cell

[MonsterNco]

Dim ws As Worksheet
For Each ws In Sheets
ws.Activate

"Macro Information"


Next ws


End Sub



I currently have this Macro that runs on all sheets on a selected workbook. I want to add a step that checks B51 on each sheet as it runs if the cell is equal to 0 I want it the macro to move on to the next open spreadsheet. Thank you for any help you can give.

 

[JLGWhiz]

Dim ws As Worksheet
     For Each ws In Sheets
            ws.Activate
        If ws.Range("B51") <> 0 Then
             "Macro Information"
        End If
    Next ws
 End Sub

 

[MonsterNco]

Thank you very much that was perfect.

 

[JLGWhiz]

Thank you very much that was perfect.

You're welcome,
regards, JLG