If a name in one range exists in another, then make that name bold....

Hello rcicconetti,

...It's lengthy so I'll bold where the transfer takes place:

I cannot see where the transfer takes places with this Code you have pasted in Bold.

Range("C13:C60").Select
    Range("C60").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Scheduling Assistant 1.0").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Scheduling Assistant 1.0").Sort.SortFields.Add Key:=Range("C60"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Scheduling Assistant 1.0").Sort
        .SetRange Range("C13:C60")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Please could you attach a sample workbook.

Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic

Also please try to compile the Sample Workbook with all the Macros in place as well.

I suspect it may have to do with this line of Code, further down your Module;

... Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Regards.

Hi, rcicconetti,

maybe try the first part (as I dont recommend to merge cells the bordering and merging is excluded). And rows 13 to 60 make up 48 rows for me while you only add 47 for the next area to copy to...

Sub UpdateSchedule()
'
'
' Update Schedule Macro

Dim lngCtr As Long
Dim lngLine As Long
Dim ws As Worksheet

Set ws = ActiveWorkbook.Worksheets("Scheduling Assistant 1.0")
For lngCtr = 3 To 11 Step 2
  With ws.Sort
    With .SortFields
      .Clear
      .Add Key:=ws.Cells(60, lngCtr), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    End With
    .SetRange ws.Range(ws.Cells(13, lngCtr), ws.Cells(60, lngCtr))
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
Next lngCtr
    
ws.Unprotect
With Range("N151:U151")
  .HorizontalAlignment = xlGeneral
  .VerticalAlignment = xlBottom
  .WrapText = False
  .Orientation = 0
  .AddIndent = False
  .IndentLevel = 0
  .ShrinkToFit = False
  .ReadingOrder = xlContext
  .MergeCells = True
  .UnMerge
End With
lngLine = 23
For lngCtr = 3 To 11
  ws.Cells(13, lngCtr).Resize(48, 1).Copy
  ws.Range("N" & lngLine).Resize(48, 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
  ws.Range("N" & lngLine).Resize(48, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
  lngLine = lngLine + 48
Next lngLine
    
ws.Range("$N$23:$N$" & lngLine - 48).RemoveDuplicates Columns:=1, Header:=xlNo
    
With ws.Sort
  With .SortFields
    .Clear
    .Add Key:=ws.Range("N23"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  End With
  .SetRange ws.Range("N23:N" & ws.Cells(ws.Rows.Count, "N").End(xlUp).Row)
  .Header = xlNo
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With

'no further

Code is untested so errors may be raised.

Ciao,
Holger