need to learn IF

[agas]

I have a workbook with 3 or more worksheets. That depends on the week. The first 2 sheets name doesnt change. So how can i make a check and run a macro for the sheets after the second one. The macro doesnt run for the first 2 sheet but runs for the remaning of the sheets.

Thanks in advance.

 

[Andrew Poulsom]

Example:

Sub MyMacro()
    Dim ws As Worksheet
    For Each ws in ThisWorkbook.Worksheets
        If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" Then
            With ws
'                Replace next line with your code
                 MsgBox ws.Name
            End With
        End If
    Next ws
End Sub

 

[VoG]

Perhaps like this

For i = 3 To Worksheets.Count
    With Sheets(i)
    '
    'your code here
    '
    End With
Next i

 

[agas]

Thank you very much It is working great.

Is there a way to get it save the file in the specified user directory.
Let me explain;

I am using this for saving

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\""USERNAME"\Desktop\cap rep\1\" & "AAP_TK_LO_CAP_REP.xls (" & Format(Date, "dd-mm-yyyy") & ").xls" _
    , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Can make it use the current logged on users name in "USERNAME" ?

 

[VoG]

Try

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\" & Environ("USERNAME") & "\Desktop\cap rep\1\" & "AAP_TK_LO_CAP_REP.xls (" & Format(Date, "dd-mm-yyyy") & ").xls" _
    , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

 

[Airfix9]

Try this (untested but it should work):

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\" & Environ("Username")& "\Desktop\cap rep\1\" & "AAP_TK_LO_CAP_REP.xls (" & Format(Date, "dd-mm-yyyy") & ").xls" _
    , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Do you KNOW that each user has the folder structure on their desktops? If they don't, this will fall over.

 

[agas]

It is working thank you very much

I can make them create the folders needed. I just dont want to change the code for every other user.