My problem is that this code runs against the values and "C" is alwayse nothing so the other parts never have any values. Please help.
Code:
'Review ADM for exceptions
Application.Worksheets("ADM").Activate
With Worksheets("ADM").Range("A2:E1000")
C = .Find("(" & DRef & ")", LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
'Test finding exceptions
MsgBox (firstAddress)
Do
Set Tval = Worksheets("ADM").Range(C.Address)
RTval = Right(Tval, Len(Tval) - InStr(1, Tval, ")"))
Expt = Cells(1, Tval.Column).Value
Select Case Expt
Case "SEG"
Col = "C"
Case "Customer"
Col = "E"
Case "Vendor"
Col = "D"
Case "Terminated"
Col = "B"
Case "Excessive"
Col = "F"
Case Else
Col = "F"
End Select
'Export value to oSheet
oSheet.Range(Col & oSheet.Cells(oSheet.Rows.Count, Col).End(xlUp).Offset(1).Row) = RTval
'Autofit for printable report
oSheet.Range(Col & oSheet.Cells(oSheet.Rows.Count, Col).End(xlUp).Offset(-1).Row).EntireColumn.AutoFit
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With