Hi,

try
 If Hour(Cells(1, 1).Value) < 1 Then
 'sth
 End If