This code worked before. But now I keep getting this error Method Range of object_Worksheet Failed

Question

Private Sub CommandButton2_Click()

\'Find Last Row
    Dim D As Long
    With Worksheets("Directory")
        D = .Range("B" & .Rows.Count).