Application.Run not working
 

Hi,
I need to call one macro from another macro.
There is function like this:

Public Function FinishExport() As String
With Sheets(1)
Range("K3", "K" +
CStr(Sheets("DEF").Range("A2"))).Borders(xlEdgeLef t).LineStyle =
xlContinuous
End With
FinishExport = "TEST"
End Function

and I need to call this function like this:

Public Sub getResult()
Dim result
result = Application.Run("FinishExport")
MsgBox (result)
End Sub

But it is not working. An error 400 allways occures.
Any idea? Thanks in advance. Lokutus


--
Lokutus
------------------------------------------------------------------------
Lokutus's Profile: http://www.excelforum.com/member.php...o&userid=32270
View this thread: http://www.excelforum.com/showthread...hreadid=520498

Application.Run not working
 

Should be:

result = FinishExport

Regards,
GS

Application.Run not working
 

You don't use Application.Run to run a macro in the same
workbook. Instead, just type the macro's name.

Public Sub getResult()
Dim result
result = FinishExport
MsgBox result
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Lokutus"
wrote in message
...

Hi,
I need to call one macro from another macro.
There is function like this:

Public Function FinishExport() As String
With Sheets(1)
Range("K3", "K" +
CStr(Sheets("DEF").Range("A2"))).Borders(xlEdgeLef t).LineStyle
=
xlContinuous
End With
FinishExport = "TEST"
End Function

and I need to call this function like this:

Public Sub getResult()
Dim result
result = Application.Run("FinishExport")
MsgBox (result)
End Sub

But it is not working. An error 400 allways occures.
Any idea? Thanks in advance. Lokutus


--
Lokutus
------------------------------------------------------------------------
Lokutus's Profile:
http://www.excelforum.com/member.php...o&userid=32270
View this thread:
http://www.excelforum.com/showthread...hreadid=520498