Hi,
It appears that you could replace all of the code in that workbook with this
Option Explicit
Sub Do_Go()
Dim startRow As Long
startRow = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row
Cells(startRow, "T").Copy Cells(startRow, "W")
End Sub
Sub Do_STOP()
Dim rowStart As Long
rowStart = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row
With Cells(rowStart, "Y")
.Select
.Value2 = .Value2
End With
Range("AA3").Copy Cells(rowStart, "AH")
End Sub
Sub Refresh_Time()
'
' Refresh_Time Macro
'
'
Range("Y2").Value = 1
Range("Y2").ClearContents
End Sub
then simply assign the Do_Go macro to all of the Go buttons, and the Do_STOP macro to all of the stop buttons.
Bookmarks