Ending Macros in a row

Hi,

First time posting! I hope you can all help

I have created a Macro so when a client clicks on a value form a drop down list it will start tracking the time taken on that one value. (Date and time macro used with a formula on the next column to work out how many days taken)
Once a client has completed a request, I want the client to be able to click on something so that all the macros stop in that row.

Is this possible? Would be a break in the current time and date columns?

Many thanks in advance.

Farrah x

can the user select the row, click a button on the Quick Access bar (a macro)
it runs a macro to post the time

vStart = cell(activecell.row,2)
vEnd = Now()
cell(activecell.row,6) =vEnd 
cell(activecell.row, 7) = DateDiff("d",vStart,vEnd)     'set days

Hi Ranman,

I don't think I have explained myself very well. Apologies. First time!

What I am looking for is a Break/Stop Macro When Condition/Critria is Met.

So when the client writes "Yes" in column A...it will break all macros in the row.

Not too sure if this possible?

Current Macro code is

Private Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xoffsetcolumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("M:M"), Target)
Set WorkRng2 = Intersect(Application.ActiveSheet.Range("T:T"), Target)
xoffsetcolumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xoffsetcolumn).Value = Now
Rng.Offset(0, xoffsetcolumn).NumberFormat = "dd-mm-yyyy"
Else
Rng.Offset(0, xoffsetcolumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
If Not WorkRng2 Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng2
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xoffsetcolumn).Value = Now
Rng.Offset(0, xoffsetcolumn).NumberFormat = "dd-mm-yyyy"
Else
Rng.Offset(0, xoffsetcolumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub


Thank you