A macro for All worksheets.

aboo · #1 (**permalink**) 06-05-06, 02:16

Hi Guys,

As you can tell by my posts im a newbie, hence the following question.
I have a macro that works on a specific file, how can i make it so this macro will work on any file.

This is the first line of the macro

Windows("rrvtest2.xls").Activate

Thanks

aboo

MikeTheBike · #2 (**permalink**) 06-05-06, 08:21

Hi aboo

I am a little unclear what you mean, or what you are trying to do, but this Sub will run code on each (visible) Workbook (file).

Code:

Sub UseAllVisibleWorkbooks()
    Dim wdw As Window
    
    For Each wdw In Windows
        If wdw.Visible Then
            With wdw
                'CODE GOES HERE
                MsgBox .Parent.Name
                .ActiveSheet.Cells(4, 9) = "TESTCODE"
            End With
        End If
    Next
End Sub

Is that somethink like what you want??

If not please expand!!

MTB

shades · #3 (**permalink**) 06-05-06, 15:58

Perhaps if you posted the code, we could help you generalize it.

Internet Services

Web Development

Digital Marketing

Consumer Tech