Attribute VB_Name = "Others"

Sub Showlap()
Attribute Showlap.VB_ProcData.VB_Invoke_Func = "a\n14"
    If Range("BX11") = 2 Then
    Remaining_Laps_to_show_race.Show
    End If
    If Range("BX11") = 1 Then
    Remaining_Laps_to_show_fp.Show
    End If
End Sub


Function ISFORMULA(cel As Range) As Boolean
ISFORMULA = cel.HasFormula
End Function

Sub Graphscale()
    ActiveSheet.ChartObjects("Sectorgraph").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = Range("CJ39").Value
    ActiveChart.Axes(xlValue).MaximumScale = Range("CJ40").Value
    ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = Range("CK39").Value
    ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = Range("CK40").Value
    ActiveChart.Axes(xlCategory).MinimumScale = 1
End Sub
'Sub Graphing_Session()
'Dim k, l As Integer
''Range("CI11:CI34").ClearContents
''Range("CO11:CO34").ClearContents
''k = Range("CK8").Value
''l = Range("CQ8").Value
'''Call sort_laptot_graph(87, k)
'''Call sort_laptot_graph(93, l)
'Call Graphscale
''MsgBox ("Fine di graphing")
'End Sub
'
'Sub sort_laptot_graph(column As Integer, ByVal run)
''this sub sorts all the laps of the run, to fit the graph
''column will be 87 or 93
'
'Dim i, j As Integer
'
''we are going to write laptot from row 10 to 34, in column
'i = 10
'For j = 7 To 228
'    If Cells(j, 85).Value = run Then
'    Cells(i, column).Value = Cells(j, 2).Value
'    i = i + 1
'    End If
'Next j
'
''MsgBox ("Lanciatasub con " & column & row)
'End Sub