Sorry, been busy,
Try this. Put the code in the WorkSheet module on sheet1. Then double click what institution name you want to change in sheet1 column A.
A message will pop up and input the correct spelling there and click ok. The source data will update and so will the pivot chart.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Dim r As Range
Dim x As String
Dim pt
Application.ScreenUpdating = 0
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Set ws = Sheets("cs_col")
Set r = ws.Columns(6).Find(What:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
x = InputBox("Enter the correct spelling", , "")
Do While Not r Is Nothing
r = x
Set r = ws.Columns(6).FindNext(After:=r)
Loop
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End If
Application.ScreenUpdating = 1
End Sub
Bookmarks