Macro is not removing cells correctly from a form control button

[shyy]

Hey everyone,

I have this macro where if I run it, it will work. However when I run it from my form, it doesn't work. What I want to do is select the active row and delete cells that don't have a formula.

When I run the macro within my form, it deletes all the cells, but when I run the macro without opening the form, it seems to always work. Anyone know why? Thanks in advance

    Range("D" & ActiveCell.Row & ":Z" & ActiveCell.Row).Select
    Selection.SpecialCells(xlCellTypeConstants).Select
    Selection.ClearContents

 

[shyy]

The cells with formulas are they still showing?

I want them to stay intact, only cells that don't have a formula to be deleted. Is it doing that for you?

What do you mean by constant?

Thanks

 

[shg]

Is it doing that for you?

Yes.

What do you mean by constant?

Constants: 5, TRUE, "Bob"

Formulas: =4+1, =1+1=2, ="B" & "ob"

 

[shyy]

Hmm this is strange, don't know why its working for you. Everything on the row gets deleted when I run it from the form, but when I run the macro without the form opened, it works fine, all the constants are moved and the cells with formulas are not deleted.

 

[shyy]

I just steped through in vba, and it doesn't pick up the constants.

Is there an alternative to use this code?

Selection.SpecialCells(xlCellTypeConstants).Select