VBA Cell-cell check which results in a msgboz

[NZSF Daemon]

Hi All,

I want to activate this macro as a Target_change
I want the macro to warn a user if the floor coverings exceed the GFA (GrossFloorArea)

Private Sub FloorArea()
Dim QtyEntry As Integer
Dim Msg As String
Dim Response
Dim cell As Range
GFA = Sheets("Questionaire").Range("G88").Value
FloorFinish = Sheets("Questionaire").Range("N357").Value
Target.Address = Sheets("Questionaire").Range("N357")

If Target.Address < GFA Then Exit Sub


On Error GoTo ErrHandler
Application.EnableEvents = False
If Target.Address > GFA * 1.1 Then
MsgBox "Floor area exceeds the GFA", vbCritical, "Warning"

Response = MsgBox("Would you like to Override this?", vbYesNo)

If Response = vbYes Then
Application.Goto Reference:=Worksheets("Questionaire").Range("G358")



QtyEntry = InputBox(Msg)
Sheets("Questionaire").Range("G358").Value = QtyEntry

If Response = vbNo Then
MsgBox ("Please remember later")

End If
End If
End If
ErrHandler:
Application.EnableEvents = True

End If
End If



End Sub

Was getting it, then lost it. Now i have confused myself.

Also how do you post code in the code box?

As always any help will be greatly appreciated.


Daemon