VBA ok but error running as add-in

[justforgroups]

Hi,
Is this code permissible in a custom add-in (XLA)?

For Each rngCell In Worksheets(gs_sheet).Cells(gl_last_row, gl_last_col)
        If Trim(rngCell.Value) = "" Then
            rngCell.Value = 0   "< ----- error in XLA here
        End If
    Next rngCell

It works fine when executed as VBA but as an add-in, it raises the error: Application-defined or object-defined error

Thks.

 

[Andrew Poulsom]

Is the worksheet protected?

 

[justforgroups]

Hi,
No. If it was, would this cause an VBA run ok and the XLA fail?
Thks.

 

[Andrew Poulsom]

The code would fail if the worksheet was protected and the cell was locked. Why are you looping when you have only one cell?

 

[justforgroups]

Hi,
No it's not just one cell - it's the entire worksheet (up to 65k rows).
I'm replacing blank cells with 0.

 

[Andrew Poulsom]

In this:

For Each rngCell In Worksheets(gs_sheet).Cells(gl_last_row, gl_last_col)

The Cells property is returning a single cell.