Problem executing a macro from different workbook where it is
 

Hi everibody,
I have a macro in a workbook called, for example, WB1.xls. The macro
takes differentes ranges and copy them in another location. ex. :
Public Sub ZeroizaModeloSteve()
Set wbModelo = Application.Workbooks(Mid(cteLibModelo, 2))
Set wsI = wbModelo.Sheets("I")
Set wsT = wbModelo.Sheets("T")
Set wsmodelo = wbModelo.Sheets(cteHojaModelo)
Set wsZeroing = wbModelo.Sheets(cteHojaZeoring)

wsI.Range("F50:IS50").Copy
wsI.Range("F51").PasteSpecial xlPasteValues
end sub
'i have omitted declaration variables and desctruction

ok? so, if i execute the macro in workbook where it is, works
perfectly.
But when i try to execute it from another workbook, with WB1.xls open,
it doesn't work.
I use the follow intruction to do it: Application.Run
"WB1.xls'!Modelo.ZeroizaModeloSteve"

Help me please :_(

Thank you very much

Sergio

see the response in .programming

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Sergio Calleja" wrote in message
om...
Hi everibody,
I have a macro in a workbook called, for example, WB1.xls. The macro
takes differentes ranges and copy them in another location. ex. :
Public Sub ZeroizaModeloSteve()
Set wbModelo = Application.Workbooks(Mid(cteLibModelo, 2))
Set wsI = wbModelo.Sheets("I")
Set wsT = wbModelo.Sheets("T")
Set wsmodelo = wbModelo.Sheets(cteHojaModelo)
Set wsZeroing = wbModelo.Sheets(cteHojaZeoring)

wsI.Range("F50:IS50").Copy
wsI.Range("F51").PasteSpecial xlPasteValues
end sub
'i have omitted declaration variables and desctruction

ok? so, if i execute the macro in workbook where it is, works
perfectly.
But when i try to execute it from another workbook, with WB1.xls open,
it doesn't work.
I use the follow intruction to do it: Application.Run
"WB1.xls'!Modelo.ZeroizaModeloSteve"

Help me please :_(

Thank you very much

Sergio