Code that worked in Office 2007 dosn't in 2010

[MaxK38]

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.

'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

 

[Norie]

I don't see anything in that code that wouldn't work, or would be different, in 2010.

There is one thing though - you have no worksheet reference here.

Expt = Cells(1, Tval.Column).Value

Try adding a reference to the relevant worksheet.