Help with applying this macro to the whole workbook

**Sagaroth** · 12-09-2013, 06:37 AM

Hi there excel experts

Please help me with changing of one macro.

Sub clear_zero()
      Dim rng1 As Range
Set rng1 = Columns(2)
With rng1
    .AutoFilter 1, "0"
    With rng1.Offset
        .ClearContents
        .ClearComments
    End With
End With

End Sub

This macro is clearing zero values of column number 2.
It is working only on active worksheet. It should work on every worksheet in the wrokbook.

Thanks for the help!

**XOR LX** · 12-09-2013, 06:58 AM

Hi,

Perhaps:

Sub clear_zero()
      
Dim i As Integer

For i = 1 To ActiveWorkbook.Worksheets.Count

With Sheets(i).Columns(2)

    .AutoFilter 1, "0"
    .ClearContents
    .ClearComments

End With

Next

End Sub

Regards

**Sagaroth** · 12-09-2013, 07:03 AM

Thank you XOR LX. Smooth and perfect

**XOR LX** · 12-09-2013, 07:07 AM

You're welcome!

Help with applying this macro to the whole workbook

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Help with applying this macro to the whole workbook

Re: Help with applying this macro to the whole workbook

Re: Help with applying this macro to the whole workbook

Re: Help with applying this macro to the whole workbook

Thread Information

Users Browsing this Thread

Similar Threads

Macro Applying Print Fit to One Page on All Worksheets in Workbook

[SOLVED] Applying a macro to all worksheets in workbook

Applying macro found online to another workbook

Applying a Workbook's Names to Another Workbook

[SOLVED] Applying same macro to all worksheets in workbook

Bookmarks

Bookmarks

Posting Permissions