Compilation Error: invalid outside procedure

[Flaghacker]

I'm trying to get a macro script to convert this:
\1
to this:
\1
.

It basically has to search the name in the legend, change the color and copy the number/text below from the legenda.

This is my current excel sheet:
https://www.dropbox.com/s/7vjrzlw5d1...voor.xlsm?dl=0

This is my current code:

Please Login or Register  to view this content.

It errors with "Compilation Error: invalid outside procedure".
Can anyone help me?

[JosephP]

you can only assign constants, not variables, outside a procedure

Please Login or Register  to view this content.

[Flaghacker]

I'm trying again, now I got some really weir error:
ByRef-argumenttypes mismatch
Code:

Please Login or Register  to view this content.

[Norie]

You haven't declared courceName anywhere so its data type defaults to Variant.

To pass it to the sub GetCourseColor it needs to be declared as string you match the data type of the argument/parameter cource.

Actually after looking at your code again there's quite a few problems with variable declarations, or the lack if them.

PS You can assign constants inside/outside procedures.

[JosephP]

your routines require you to pass a String to them but your variable is undeclared so it's a Variant. it's also spelled wrong

Please Login or Register  to view this content.

look up option explicit in help ;-)

[Flaghacker]

I fixed that, now it's telling "error 1004 during execution". At this line:

Please Login or Register  to view this content.

in GetCourseColor
Current code:

Please Login or Register  to view this content.

File download (if needed): https://www.dropbox.com/s/7vjrzlw5d1...voor.xlsm?dl=0

[Flaghacker]

I got my macro working, thanks for all your help.