Checking for a number in a cell

B13 contains either N/A or a Date formatted as - Custom - D MMM. This month B13 is displaying a date - 04 Feb. The macro code is:

If IsNumeric(Range("B13").Value) Then
    Range("B13").Copy
        Windows("Premier1").Activate
        Range("B12").PasteSpecial Paste:=xlValues, Operation:=xlPasteSpecialOperationAdd
    Else
        Range("B12").Copy
        Windows("Premier1").Activate
        Range("B12").PasteSpecial Paste:=xlValues, Operation:=xlPasteSpecialOperationAdd
        End If

The macro runs the first line and then jumps to the Else. What I want it to do is Copy B13, the date, to B12 on Premier1 sheet. Where have I gone wrong please ?

Re: Checking for a number in a cell

¡Estupendo! Gracias Dennis. Working now

Diego of Solius