Give this a whirl

Dim oFind As Range

Set oFind = Nothing
On Error Resume Next
Set oFind = Range("1:1").Find("ID")
On Error Goto 0
If Not oFind Is Nothing Then
oFind.Resize(2000, 1).Copy _
Destination:=Worksheets("Raw Data").Range("A1")
End If
Set oFind = Nothing
On Error Resume Next
Set oFind = Range("1:1").Find("OpportunityID")
On Error Goto 0
If Not oFind Is Nothing Then
oFind.Resize(2000, 1).Copy _
Destination:=Worksheets("Raw Data").Range("B1")
End If



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Duncan_J" wrote in message
...
Hey folks,
Got a bit of code running to setup the sheet since the columns keep
changing
order at the download. So I got this running to about BP1. Anyway, it's
not
picking up the ID. Instead it's picking up OpportunityID. SO column A, B
both
populate with OpportunityID, any thoughts?

Dim oFind As Range

Set oFind = Range("1:1").Find("ID")
If Not oFind Is Nothing Then
oFind.Resize(2000, 1).Copy _
Destination:=Worksheets("Raw Data").Range("A1")
End If
Set oFind = Range("1:1").Find("OpportunityID")
If Not oFind Is Nothing Then
oFind.Resize(2000, 1).Copy _
Destination:=Worksheets("Raw Data").Range("B1")
End If