请大家帮我看看我写的这个程序哪里错了，应该如何修正，谢谢大家啦！具体代码如下：

Sub Mycode()
   Dim rng As Range
       With Worksheets(1).Range("2:2")
        rng = .Find(what:=Worksheets(3).Range("D1").Value, lookat:=xlWhole)
        If rng Is Nothing Then
          rng.Interior.ColorIndex = 2
        Else
          rng.Interior.ColorIndex = Worksheets(3).Range("d1").Interior.ColorIndex
        End If
       End With
        
            
End Sub

补充说明：系统提示是这句代码有问题  rng = .Find(what:=Worksheets(3).Range("D1").Value, lookat:=xlWhole)
提示“对象变量或With块变量未设置”