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
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