I have a macro that takes data/content from a cell when it changes and moves it to another WS. Fairly simple. BUT, the problem I have is that if I have a formula in the cell (B5), it will not pass the change over.
Thank you in advance. B.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Select Case Target.Address
On Error GoTo 0
Application.ScreenUpdating = True
' End Select
If Not Intersect(Target, Range("B5")) Is Nothing Then
Sheets("Financial Business Case").Range("e40") = Target.Value