Can anyone

  • Thread starter Thread starter fi.or.jp.de
  • Start date Start date
F

fi.or.jp.de

Hi All,

I got one macro, which I pasted in my module but if I want to run that
macro,
the macro name is not visible. Or how do check the result to be
appeared in immediate window ?

Sub LoopThruSheetsBookX(BookX$)
Dim sh As Sheet
For Each sh In Workbooks(BookX$)
Debug.Print sh.Name
Next sh
End Sub
 
When you pasted the code into VBA you either put the code on a worksheet or
thisworkbook. You need to put your code into a mode. view the Project
Explorer from the VBA (select Prject Explorer from the View Menu). You will
see there is a sheet for each spreadsheet and thisworkbook. You can also
create Modules. go to Insert Module to add the module. then move you code
from the shet to the module. You can double click on any of these VBA
objects to view the code.
 
From Visual Basic Editor windows; from Insert menu insert a module and paste
your code. Save and close. Get back to workbook. Check macros..
 
Macros that take arguments are not 'runnable" other than through other code.
For example, you can pass a workbook object to your sub by using one of the
line from something like this:

Sub Test()
LoopThruSheetsBookX ActiveWorkbook
LoopThruSheetsBookX Workbooks("Name.xls")
End Sub

Sub LoopThruSheetsBookX(BookX$)
.....


HTH,
Bernie
MS Excel MVP
 
I'm sorry, I ignored your string use - though BookX was an object:

Sub Test()
LoopThruSheetsBookX ActiveWorkbook.Name
LoopThruSheetsBookX "Name.xls"
End Sub.

Sub LoopThruSheetsBookX(BookX As String)
Dim sh As Sheet
For Each sh In Workbooks(BookX)
Debug.Print sh.Name
Next sh
End Sub

Bernie
 
Back
Top