Search results for query: *

Thanks, I entered a few dim statements and it worked fine... 'code follows Sub EnumTonal() Const tonal = 7 Const atonal = 12 ReDim musscale(atonal - 1) As Variant ReDim choice(tonal - 1) As Variant musscale(0) = "Ab" musscale(1) = "A&quot...

There are 792 ways to select any seven non-repeating musical scale sequences from the given twelve tone music system. The actual 12-tone values are as follows...

Thanks folks, The code worked great, after defining "i". I appreciate the codes very much!!!!!! Thanks again, Stephen

Thanks, Nigel I have saved a copy, and really appreciate the codescript. Stephen

Objective: Search Column"P" within an Excel worksheet for constant stringwords (regardless of case), and upon finding those stringwords, underline only the stringword in the cell and set the textfont to RED, leaving other words within the cell black. If not found then use the default...

Thanks, Dale will do....

My solution would be to first use a macro to record a copy & paste to a dummy sheet. Print the dummy sheet. Then programatically delete the dummy sheet when the procedure is completed. (With application.screenupdating=FALSE and Application.displayalerts=FALSE) After the macro was recorded, I...