Running a variable module with parameters

Problem 1 Solved - I apologise, I was having a blond moment. I had the module and subname both the same

Anyway, I still have a problem with it. I am using the:

Run(RipperExtractionModule & "(" & RipperExtractionParameters & ")")

but these seems to be running the module twice. At the moment all I have in the sub is a msgbox "I'm Here" but this message appears twice when I use the command above. I also need to have the function return a value so I tried

c = run ....
and
c = evaluate ....

Neither return a value

Another strange thing is that neither will let me step through the code. I have placed breakpoints inside the sub but even though my msgbox gets displayed the code wont stop at that point.

Steve

Usually to return a value you would use a function rather than a sub.

Not sure how using a function in another workbook, which appears to be what you have based on the use of Run, would work.

Could you post the code you are trying to run and explain what you want it to do/return?

PS Can you add code tags when posting code?

Hi Norie

Thanks for the reply.

I apologise for not being very clear. I am trying to run a function which is in one of the modules in the same workbook.

In Macro
Sub StartRipper()
Dim b as boolean
Dim Ripperoutputpath as string
Dim Worksheetname as string
Dim RipperExtractionModule as string

Dim c as string

'These two lines lookup the parameters from a worksheet in the current workbook. These values
'are being returned correctly but for the sake of this demo I am hardcoding them below
'RipperExtractionParameters = GetRipperParameters("RipperExtractionParameters")
'RipperExtractionModule = GetRipperParameters("RipperExtractionModule")

Ripperoutputpath = "c:\tmp\AmazonUKOutput1.xls"
Worksheetname = "UK"
RipperExtractionModule = "ExtractAmazonUKFormat" 'Excuse the variable name containing 'module'. It is actually the function name that is being called.
RipperExtractionParameters = Ripperoutputpath & "," & Worksheetname

'This line is hardcoded and works. It allows me to step through the code like normal.
c = ExtractAmazonUKFormat(RipperOutputPath, WorksheetName)

'This is the one that I am trying to get working. Without the "C = " it runs the function correctly but wont let me step through it nor will it return a value

Run (RipperExtractionModule & "(" & RipperExtractionParameters & ")")

'I have also tried the following but with the same result.
'c = Evaluate (RipperExtractionModule & "(" & RipperExtractionParameters & ")")

End Sub

In Module
Public Function ExtractAmazonUKFormat(RipperOutputPath As String, WorksheetName As String) As string
Msgbox "RipperOutputPath" & vbcrlf & "Worksheetname"
ExtractAmazonUKFormat = "Done"
End Function

I hope this makes sense.

Thanks
Steve

I think you may use:

Please Login or Register  to view this content.

Code is correct for what you have described - but Application.Run is better than Run. Please provide sample workbook.

Please Login or Register  to view this content.

It is better to always use explicit property.

You must post workbook showing this please.