on action coding

[mort1703]

I am using the following procedure within my excel project:

Public Sub ADDBUTTONS(ASheet)
Dim BILLCOUNT As Integer
Dim INCOMECOUNT As Integer
    BILLCOUNT = Worksheets("BILLS").Range("D1") 'HOLDS VALUE 19
    INCOMECOUNT = Worksheets("INCOME").Range("H1") 'HOLDS VALUE 7
    Worksheets(ASheet).Range("A1").Select
    ADDBUTTONCOUNT = 5 + BILLCOUNT
    ActiveCell.Offset(ADDBUTTONCOUNT, 1).Select
    For COUNTER = 0 To INCOMECOUNT - 1
        Selection.Copy
        ActiveSheet.Pictures.Paste.Select
        ActiveCell.Value = "CHANGE"
        ActiveCell.HorizontalAlignment = xlCenter
        ActiveCell.Font.Bold = True
        Selection.OnAction = "CHANGE"
        ActiveCell.Offset(1, 0).Select
    Next COUNTER
End Sub

when I use this procedure it creates the require result from a display perspective.

my dilema is as each button is running the same macro ie "CHANGE", how do I force the
"CHANGE" procedure to only work on the row selected

 

[Diablo II]

here is a code that works on cell change make a workbook name a worksheet w2 put a number in it then past that code in VBAs thisworkbook then insert a model past the sub mag in it, if you put cell a1 to 0 the mag will pop up. so now with this you can find a way to do yours.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sheets("w2").Select
 If Range("A1") = 0 Then
Call MsgExample1
Else
Exit Sub
End If
End Sub

Sub MsgExample1()
 MsgBox "Need To Purchase."
End Sub