Run a macro from a workbook on an other workbook

Hello,

- I have a macro called "MacroInMain" which resides in a module of a macro enabled workbook called "Main.xlsm".

- I have an open Excel File called MyFile.xls.

- I want the "MacroInMain" to perform a task in MyFile.xls, say write the value "test" in cell A1 of the activesheet.

Any ideas?

Thanks

Sub MacroInMain()
  ActiveSheet.Range("A1").Value = "Test"
End Sub

Artik

Artic,
Thanks for looking into this;
The code you are suggesting, will write the "test" into the "Main.xlsm" file.
I am trying to activate somehow the other file called "MyFile.xls" and write that value into there.
FYI

Thanks

Sub MacroInMain()
  Dim wkb As Workbook
  
  If Not IsWorkbookOpen("MyFile.xls") Then
    MsgBox "MyFile.xls is not open", vbExclamation
    Exit Sub
  End If
  
  Set wkb = Application.Workbooks("MyFile.xls")
  
  'without activate, into first worksheet
  wkb.Worksheets(1).Range("A1").Value = "Test"
  
  'or
  'with workbook activation and entry to the active sheet (not necessarily the first one)
  'wkb.Activate
  'ActiveSheet.Range("A1").Value = "Test"
End Sub


Function IsWorkbookOpen(strName As String) As Boolean
  Dim wkb As Workbook
  
  On Error Resume Next
  Set wkb = Application.Workbooks(strName)
  On Error GoTo 0
  
  IsWorkbookOpen = Not wkb Is Nothing
End Function

Artik

Thank you Artik!