personal.xlsb not getting activeworkbook

[biswajit.becs]

hi,

i have created a module in personal.xlsb.i want it to autometically run when excel starts.

Private Sub Auto_Open()
Dim sh As Worksheet
For Each sh In [COLOR="Blue"]ActiveWorkbook[/COLOR].Worksheets
sh.Cells.Replace What:="aaa", Replacement:="xxx"
Next
End Sub

but when opening a workbook getting runtime error
how to get rid of this?

thanks for help in advance

 

[Andrew Poulsom]

Welcome to MrExcel.

That code runs when Personal.xlsb is opened. Is that what you want?

 

[biswajit.becs]

i want to get that code run whenever any excel workbook opens to my computer.

actually my intention is to get all "aaa" to be replaced by "xxx" to all worksheets whenever any workbook is opened to my computer.

pl. write further if any clarification needed.

 

[Andrew Poulsom]

You will need to use Application Events:

http://www.cpearson.com/Excel/AppEvent.aspx