Sub DeleteSheet()
Dim Sh As Object
    For Each Sh In ActiveWorkbook.Sheets
    Application.DisplayAlerts = False
        If Sh.Visible <> xlSheetVisible Then Sh.Delete
        Application.DisplayAlerts = True
    Next
End Sub

Public Sub DelHiddenRows()
    Dim lR As Long, i As Long, Sh As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Activate
        lR = Sh.UsedRange.Rows.Count + Sh.UsedRange.Row - 1
        For i = lR To 1 Step -1
            If Sh.Rows(i).Hidden Then Rows(i).Delete
        Next
    Next
    Application.ScreenUpdating = True
End Sub

Sub delete_hidden_columns()
Dim ws As Worksheet
Dim i As Integer
For Each ws In ThisWorkbook.Worksheets
     For i = 256 To 1 Step -1
         If ws.Columns(i).EntireColumn.Hidden Then
             ws.Columns(i).EntireColumn.Delete
         End If
     Next
Next ws
Set ws = Nothing
End Sub

Sub DeleteAllComments()
For Each xWs In Application.ActiveWorkbook.Sheets
    For Each xComment In xWs.Comments
        xComment.Delete
    Next
Next
End Sub

=IF(($D$5:$D$61>=E$2)*($D$5:$D$61<=(E$2+E$3));E$4;"")

Sub SetWeights()
    Dim srs As Series
    For Each srs In ActiveSheet.ChartObjects("Chart 1").Chart.SeriesCollection
        srs.Format.Line.Weight = 0.75
    Next
End Sub

Sub SetLineCap()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
With Application
    .SendKeys "{F10}JA" 'hotkey select PIVOTCHART TOOLS > FORMAT tab
    .SendKeys "SOWLA{RETURN}" 'navigate to Format data series > Cap type
    .SendKeys "{F}{RETURN}" 'select 'flat' from the list
End With
End Sub

Sub Markers()
    ActiveSheet.ChartObjects("Chart 1").Activate
    For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
    With ActiveChart.SeriesCollection(1).Points(i).Format.Line
        .Style = msoLineSingle
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.RGB = #00ff00
        .Transparency = 0
    End With
    Next
End Sub

objChart.Axes(xlValue).MajorGridlines.Select
         With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.150000006
        .Transparency = 0
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 0.25
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineDash
    End With

Option ExplicitPrivate Sub Worksheet_Activate()
    Dim Sh As Worksheet, XRng As Range, YRng As Range, objChart As Chart, objSeries As Series
    Dim Xmin As Double, Xmax As Double, Y, Ymin As Double, Ymax As Double, YA As Double, DY As Double, k As Long
    Xmin = Sheets("Sheet1").Range("DW1")
    Xmax = Sheets("Sheet1").Range("DW2")
    Set Sh = Sheets("Sheet1")
    Set XRng = Sh.Range("DV6:DV10086") ' Time '
    k = WorksheetFunction.Match(1E+300, XRng, 1)
    Set XRng = XRng.Resize(k)
    Set YRng = Sh.Range("DW6:DW10086").Resize(k) ' '
    Application.StatusBar = "Please wait..."
    Application.Cursor = xlWait
    For k = 1 To 1
        DoEvents
        Set objChart = Me.ChartObjects(k).Chart
        Set objSeries = objChart.SeriesCollection(1)
        objSeries.XValues = XRng
        objSeries.Values = YRng.Columns(k)
        objChart.Axes(xlCategory).MinimumScale = Xmin
        objChart.Axes(xlCategory).MaximumScale = Xmax
        Ymin = 1E+300
        Ymax = -1E+300
        For Each Y In YRng.Columns(k).Value
            If VarType(Y) >= 2 And VarType(Y) <= 7 Then
                If Y < Ymin Then Ymin = Y
                If Y > Ymax Then Ymax = Y
            End If
        Next
        Rem Method of flow scale:
        YA = (Ymin + Ymax) / 2 * 1.05
        DY = (Ymax - Ymin) / 2 * 1.05
        Ymin = YA - DY
        Ymax = YA + DY
        Rem until
        objChart.Axes(xlValue).MinimumScale = Ymin
        objChart.Axes(xlValue).MaximumScale = Ymax
        objChart.Axes(xlCategory).MajorUnit = Sheets("Sheet2").Range("AE29")
        objChart.Axes(xlValue).MajorGridlines.Select
         With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.150000006
        .Transparency = 0
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 0.25
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .DashStyle = msoLineDash
    End With
    Next
    Application.StatusBar = False
    Application.Cursor = xlDefault
End Sub