Code (Excel VBA) not working any more. Please help

[pixie]

Hi,

I have some code that I have been using for more than a year. Excel VBA. Today it stopped working. I have no idea why. Here is the code:

  Range ("E1").Select
If IsEmpty(ActiveCell) Then Exit Sub
  Range(ActiveCell, Cells(Rows.Count, _
       ActiveCell.Column - 1).End(xlUp).Offset(0, 1)).FillDown
End Sub

It used to copy what was in cell E1 down until there was no data in column D. I use this for formulas. Today, however, it copies the value in cell E1 and not the formula.

Please help! Thanks in advance.

I just tried it in a new workbook and it still works. Any ideas on why it won't work in the two workbooks I created yesterday? Thanks again.

[danp129]

My only idea would be to right click column E and format it as general, then double click E1 and then press enter. Then run it again.

[pixie]

My only idea would be to right click column E and format it as general, then double click E1 and then press enter. Then run it again.

Hi, I tried that and no luck. Thand you though. Found some new code to do the same thing that I want and it works fine. No idea though why the original code just won't work on those two workbooks. I just used it in a new workbook and works fine.