Cannot Type/Drag/Paste Formula in Cell

[Zummybear]

I am trying to count Os and Xs from a calibration. I have a spreadsheet that we have been using for years with the included formulas in the provided Snip-it. However, I noticed that not all of them were formulas. I think someone entered in a number instead of letting it calculate (must have been unlocked). When I tried to drag the formula to the adjacent cell, it pops up breifly and then reverts directly back to a number (I have selected that my formulas be shown) and of course the number is not even correct. Even if I type out the formula by hand, it reverts back to the number you see in the cell outlined in green. My cells are all set to General not Text.

I am at a loss. Any one have an idea as to what is happening?

Thanks,
Dan

 

[davesexcel]

Could there be a worksheet code in there?

 

[Zummybear]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B21:J49,B53:J71,B75:J90,B94:J111,B118:J125")) Is Nothing Then
Target(1).Value = UCase(Target(1).Value)
End If
Application.EnableEvents = True
End Sub


I created this so long ago, I don't even remember what I put this in there for. I am a robber and a thief when it comes to VB. I do not know VB so I look up what I need and copy and paste. Maybe I am making everything uppper case???

 

[davesexcel]

When you dragged the formulas across ,the worksheet change event kicked in, changing the formulas into values if those cells are within the target ranges. Possibly B75:J94

 

[Zummybear]

Brilliant!!! That was it. There were rows that were deleted and it changed my range. Once I reset the ranges, it worked perfectly. Thanks Dave for taking the time to help me out.