VBA Goal Seek in selection skip blank cells

[mizogy]

Hi

I am trying to write a macro to goal seek records within a selected range which may include blank cells. The intention is to skip those records whereby the cell is blank and move on to the next record. My code so far:

Dim CurCell As Range
For Each CurCell In Selection
If CurrCell.Value <> 0 Then CurCell.GoalSeek Goal:=CurCell.Offset(0, 2), ChangingCell:=CurCell.Offset(0, -80)
Next
End

Although, not working, can anyone shed some light

 

[Biz]

Hi,

I think it spelling error

Before

If CurrCell.Value <> 0

After

If CurCell.Value <> 0

Biz

 

[mizogy]

Hi Biz - well spotted, didn't think it was going to be that easy! Cheers, Mizogy

 

[Biz]

Hi Mate,

Use Option Explicit to avoid these errors.

This statement requires that all variables be declared using a Dim statement. Returning to the problem described above, the compiler will throw an error when it encounters the misspelled Idnex1 variable, alerting you to the problem. The code will not execute at all until the error is fixed.

Read link web to address this problem
http://www.cpearson.com/excel/DeclaringVariables.aspx

Biz