Copying data from one cell when other cell is between a time range

[paulbentley]

Thanks SamT

The code as you have it works fine.

Just as an aside, ideally what I want to do is to check that a time is between two times say 23:00 - 07:00 and then copying that cell if it meets both these logical tests. I was trying to use an If And function but that does't seem to work either, any thoughts?

Sub Macro2()'
' Macro2 Macro
'
    Range("A1").Select
    
If  ActiveCell.Value => TimeSerial(23, 0, 0) And <= TimeSerial (07, 0, 0) Then
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.Paste
End If


End Sub

Thanks

Paul