I have this
If I want to change'7.05
If .Value >= TimeSerial(7, 0, 0) And .Value < TimeSerial(7, 5, 0) Then
With ThisWorkbook
Worksheets("Sheet1").Range("B2").Copy
Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlValues
End With
End If
using a variable X, is it possible?TimeSerial(7, 5, 0) into TimeSerial(7, 10, 0)