Tweak this code to apply to active sheet

[londa_vba]

hello
I have a code that works to get rid of unwanted zeros but i need it to apply to the active sheet rather than naming a specific worksheet. Please help.

Dim c As Long
'With Worksheets("Import_1")
With .Cells(1, 1).CurrentRegion
For c = 1 To .Columns.Count
With .Columns(c)
.Replace What:=0, Replacement:=vbNullString, LookAt:=xlWhole
End With
Next c
End With
End With

 

[Herakles]

This does it for me.

Public Sub subReplaceZero()

    With ActiveSheet.Range("A1").CurrentRegion
        .Replace What:=0, Replacement:=vbNullString, LookAt:=xlWhole
    End With

End Sub

 

[londa_vba]

This does it for me.

Public Sub subReplaceZero()

    With ActiveSheet.Range("A1").CurrentRegion
        .Replace What:=0, Replacement:=vbNullString, LookAt:=xlWhole
    End With

End Sub

Thank you so much