Add blanks to cells

[bernie10]

Hello all,
This code takes a long time to run... is there a better way? Objective is to add a blank to every empty excel cell in the range.

Sub AddBlanks()
    For I = 1 To 2000
        For J = 1 To 50
            If Trim(ActiveSheet.Cells(I, J).Value & "") = "" Then
                ActiveSheet.Cells(I, J).Value = "'"
            End If
        Next J
    Next I
End Sub

Is there a more effecient way to achieve this objective?

Thanks,

Collen

 

[bernie10]

Please disregard... found a non-programmatic solution to the problem.

Using Edit-> GoTo-> Blanks
Then I enter the blank and hit control + enter.

Thanks,
Collen

 

[SkipVought]

collen,

So this is where you insert the TICs!

Why?

Skip,
[sub]
[red]Be advised:[/red]To be safe on the FOURTH, don't take a FIFTH on the THIRD, or...
You might not come FORTH on the FIFTH! [/sub]

 

[bernie10]

Hi Skip,
The tick marks are there because they the pivot filter values appear as " " instead of (blank). It makes it easier to filter- the other people using the sheet have requested that they be left. Perhaps they didn't have performance in mind when they initially created the sheet with all the ticks.


Collen