View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Lokutus Lokutus is offline
external usenet poster
 
Posts: 1
Default 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