Thanks, Art. I'm very much a novice with Excel. I just replied to Frank's
post in another group saying I am more a graphic designer than Excel whiz,
so any remedial help would be GREATLY appreciated! I've never used VBA, and
the instructions that Frank pointed out I found this morning, but those look
like they are not working with two separate files... they look like they are
working within the same file. I am working with two separate files.
....and Jeremiah 29:11 has gotten me through an AWFUL lot of junk in my life,
as has Philippians 4:13, Joshua 1:9... you get the picture... but the main
one is John 3:16!
"Art" wrote in message
...
Wow, a lot of posts!
If you're comforatble with VBA you could try the following:
Assume both lists start in row 1.
List 1 is in columns A - E ends in row 13
List 2 is in columns G - K ends in row 5
------------------
Option Explicit
Public Sub FixNames()
Const FirstRow1 As Integer = 1
Const LastRow1 As Integer = 13
Const FirstRow2 As Integer = 1
Const LastRow2 As Integer = 5
Dim Index1 As Integer
Dim Index2 As Integer
Sheets("Sheet1").Activate
Application.ScreenUpdating = False
For Index2 = FirstRow2 To LastRow2
For Index1 = FirstRow1 To LastRow1
If Cells(Index1, 1) = Cells(Index2, 7) Then
Range(Cells(Index1, 1), Cells(Index1, 5)).Select
Selection.Delete Shift:=xlUp
Exit For
End If
Next Index1
Next Index2
Application.ScreenUpdating = True
End Sub
------------------
By the way, I've always liked Jer 29:11
Art
|