selection.onaction issue

[mort1703]

I am using this piece of code

    For COUNTER = 0 To INCOMECOUNT - 1
        Selection.Copy
        ActiveSheet.Pictures.Paste.Select
        ActiveCell.Value = "OPEN"
        Selection.OnAction = "CHANGE"
        ActiveCell.Offset(1, 0).Select
    Next COUNTER

is it possible to use a variable on the line:

    Selection.OnAction = "CHANGE"

for example.

incomecount = 7
I would like to change "CHANGE" in the above to "CHANGE + INCOMECOUNT"
giving me a list as follows

CHANGE1
CHANGE2
CHANGE3
CHANGE4
CHANGE5
CHANGE6
CHANGE7

Rather than

CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE
CHANGE

which it currently does

any help would be appreciated

 

[ColinKJ]

Hi mort1703,

Try:

Selection.OnAction = "CHANGE" + Mid$(Str$(COUNTER), 2)

ColinKJ

 

[mort1703]

Hi colinkj

your suggestion works perfectly well, however its highlighted a problem I hadnt forseen.

In essence.

MULTIPLE MACROS WOULD BE REQUIRED, as a result I have decided to scrap the idea, and find a different work around.

thanks for your help though

 

[ColinKJ]

I did wonder about that

ColinKJ