Running a Macro on another worksheet

[jindon]

try

    ol2 = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name)
    Application.Run "'" & ol2 & "'!RedFont"