You need a Set statement when working with Find. Find returns a range object

Dim X as Rang
Set X = Cells.Find......

----- Peter wrote: ----

Hello everyon

The message in the subjectline is displayed when running the code below

Option Explici
Sub FindWeek(
Dim DateCell As Rang
Dim Rownr As Intege
Dim ColumnDep As Byt
Dim ShiftDown As Byt
Dim i As Byt

Dim Dsd As Strin
Dim Msd As Strin
Dim Ysd As Strin
Set DateCell = Range("SearchDate"
If Range("Dsd").Value < 10 The
Dsd = "0" & Range("Dsd").Valu
Else
Dsd = Range("Dsd").Valu
End I
If Range("Msd").Value < 10 The
Msd = "0" & Range("Msd").Valu
Else
Msd = Range("Msd").Valu
End I

Ysd = Range("Ysd").Valu

DateCell = Dsd & "-" & Msd & "-" & Ys

Sheets("TotaalTabel").Selec

Cells.Find(What:=DateCell.Value, After:=ActiveCell, LookIn:=xlFormulas

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False).Activat

Rownr = ActiveCell.Ro
ColumnDep =
ShiftDown =

For i = 1 To 1
Range(Range("SearchDate").Offset(ShiftDown, 0), Range("SearchDate")

Offset(ShiftDown, 6)).Cop
Cells(Rownr, ColumnDep).PasteSpecial Paste:=xlPasteValues
Operation:=xlNone, SkipBlanks
:=False, Transpose:=Tru
ShiftDown = ShiftDown +
ColumnDep = ColumnDep +
Next

End Su