fehlerhafte Objektdeklaration

Sub importdatei()
Dim importdatei As Worksheet
Dim quellblatt As Worksheet
Dim monatname As String
Dim im As Integer  'Zählvariable Tabellenblatt Importdatei
Dim d As Integer    'Zählvariable Tabellenblatt Daten neu
monatname = "01/2007"
Set importdatei = ActiveWorkbook.Worksheets("Importdatei")
Set quellblatt = ActiveWorkbook.Worksheets("Daten neu")
im = 2
d = 2
Do Until importdatei.Cells(im, 1) = Empty
  If monatname = importdatei.Cells(im, 4) And importdatei.Cells(im, 3) = quelldatei.Cells(  _
_
d, 1) Then
importdatei.Cells(im, 5) = quelldatei(d, 3)
im = im + 12
End If
Loop
End Sub

Weiß jemand Rat, wie ich meinen Monatname=01/2007 deklarieren muss ?
Danke im Voraus.
Sabbel