Display msgbox if date not found?

[jackbl]

Sub Rectangle15_Click()
Range("H15:I15").Select
datetofind = ActiveCell.Value
Range("H18:H33").Select
Selection.Copy
Sheets("Items").Select
Range("D13").Select

Cells.Find(What:=datetofind, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("InputDaily").Select

End Sub

 

[VoG]

Perhaps

Sub Rectangle15_Click()
Range("H15:I15").Select
datetofind = ActiveCell.Value
Range("H18:H33").Select
Selection.Copy
Sheets("Items").Select
Range("D13").Select

Set Found = Cells.Find(What:=datetofind, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Found Is Nothing Then
    MsgBox "Not found", vbInformation
    Exit Sub
End If
Found.Offset(0, 1).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("InputDaily").Select

End Sub

 

[jackbl]

Thank you so much I've been messing around with this for a good while, and didn't realise I missed off the "Set" part when I tried to do it