Dim c As Range error help

[bluefeather8989]

I have this code in a work sheet thats not working any help on getting it to work.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Changed As Range, c As Range
    Set Changed = Intersect(Target, Range("$L$6:$P$69"))
    If Not Changed Is Nothing Then
        Application.EnableEvents = False
        For Each c In Changed
            If c.Value <> "" Then
                c.Value = StrConv(c.Value, vbProperCase)
            End If
        Next c
        Application.EnableEvents = True
    End If
    
    Worksheets("DR").Range("AF2:AF65").Value = Worksheets("1").Range("L6:L69").Value
    
    
    Dim c As Range
Application.ScreenUpdating = False
With Sheets("DR")
  Sheets("DR").Range("O2:U65") = .Range("O2:U65").Value
  For Each c In Sheets("1").Range("R6:R69")
    Sheets("DR").Range("O2:U65").Replace What:=CStr(c), Replacement:="", LookAt:=xlWhole
  Next
End With

    Call Random
End Sub

 

[CSmith]

Sheets("DR").Range("O2:U65").Replace What:=CStr(c), Replacement:="", LookAt:=xlWhole

should be CStr(c.Value)

 

[bluefeather8989]

should be CStr(c.Value)

 

[CSmith]

You will need to remove that line highlighted above. You have already DIM'd c above . . .

Dim Changed As Range, c As Range

 

[CSmith]

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Changed As Range, c As Range
    Set Changed = Intersect(Target, Range("$L$6:$P$69"))
    If Not Changed Is Nothing Then
        Application.EnableEvents = False
        For Each c In Changed
            If c.Value <> "" Then
                c.Value = StrConv(c.Value, vbProperCase)
            End If
        Next c
        Application.EnableEvents = True
    End If
    
    Worksheets("DR").Range("AF2:AF65").Value = Worksheets("1").Range("L6:L69").Value
    
    
Application.ScreenUpdating = False
With Sheets("DR")
  Sheets("DR").Range("O2:U65") = .Range("O2:U65").Value
  For Each c In Sheets("1").Range("R6:R69")
    Sheets("DR").Range("O2:U65").Replace What:=CStr(c.Value), Replacement:="", LookAt:=xlWhole
  Next
End With

    Call Random
End Sub