Clear Only Numeric from Column (workgroup)

[makis1023]

Hello all,

I am using the below code

Sub ClearContentsPCA()
    On Error Resume Next
        ActiveSheet.Columns("D").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
    On Error GoTo 0
End Sub

It working fine but I need to clear only numbers from the whole workgroup at column D. I replaced ActiveSheet with ActiveWorkgroup but now luck.

Please help.

Thank you

 

[rollis13]

If I correctly understood your request, use:

Option Explicit
Sub ClearContentsPCA()
    Dim ws     As Worksheet
    For Each ws In Worksheets
        On Error Resume Next
        ws.Columns("D").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
        On Error GoTo 0
    Next ws
End Sub

 

[makis1023]

If I correctly understood your request, use:

Option Explicit
Sub ClearContentsPCA()
    Dim ws     As Worksheet
    For Each ws In Worksheets
        On Error Resume Next
        ws.Columns("D").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
        On Error GoTo 0
    Next ws
End Sub

Yes ! This will do the job! Thank you again @rollis13 !

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.