Help needed on Excluding Weekends

Hi All,

I need help to exclude Weekends when i run the macro.

Here the Code:

ActiveWorkbook.Worksheets.Add.Name = Format(Now() - 1, "mm-dd-yy")

Thanks in advance!!!

Regards

Elango

Hi Solus,

Apologize for the delay post.

        Sub Voc()

            Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(Now() - 1, "mm-dd-yy")

            With ActiveSheet.QueryTables.Add(Connection:= _
                "URL;http://volweb.utk.edu/Schools/bedford/bedford/armstrong.htm", Destination:=Range("$A$1"))
                .Name = "armstrong"
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = xlInsertDeleteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .WebSelectionType = xlSpecifiedTables
                .WebFormatting = xlWebFormattingNone
                .WebTables = "1"
                .WebPreFormattedTextToColumns = True
                .WebConsecutiveDelimitersAsOne = True
                .WebSingleBlockTextImport = False
                .WebDisableDateRecognition = False
                .WebDisableRedirections = False
                .Refresh BackgroundQuery:=False
            End With

            Range("K:AF").ClearContents
            With Intersect(Range("A:J"), ActiveSheet.UsedRange)
                .Borders.Weight = xlThin
                .Borders(xlEdgeBottom).Weight = xlMedium
                .Borders(xlEdgeLeft).Weight = xlMedium
                .Borders(xlEdgeRight).Weight = xlMedium
                .Columns.AutoFit
            End With
            Range("A1:J1").Borders.Weight = xlMedium

        End Sub

Hope above script will help..

Regards

Elango

you can use the function "weekday"

if weekday(now-1) = 1 or weekday(now-1) = 7 then
       'your code
end if

note :
sunday = 1
monday = 2
...

but you can change these defaults properties by the way

Hi Kiwoop,

Thanks for your code.

But still i am not clear about the code. I tried this code an error was occurred

Elango

Hi Solus,

Thanks for the try...

Macro is not working once i click the command button. I will look for some other alternative codes.

Elango

Actually, you add a sheet with the date as name, and you dont want to add sheets for day which are on weekends is that right ?

The Xero Solus code should work I reckon. Which line do you get the error ?

I found a code to avoid the Weekends.

Thanks

Elango