Use Application.Run from the active cell to loop through cell to run code

[forrestgump1980]

Hi There,

I am trying to use the below code to run numerous macros in cell A8 downwards. So the first cell in A8 may have the value Rule8 and the code will run this rule and then move onto A9 and then run that rule. Any help greatly appreciated.

Please Login or Register  to view this content.

Kind regards,

Forrestgump

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[forrestgump1980]

Unbelievably I have managed to work out what I was trying to do, It was alot more simply than I originally thought:-


Sub Loop1()
'This loop runs until there is the next cell down is blank
Range("A8").Select
Do
Application.Run (ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Value)

End Sub