Sub Outdated_LatinsEng()
'
' Outdated_LatinsEng Macro
' Replaces outdated latins with the new versions
'
'
Range("Table1[[#All],[Scientific Name]]").Select
ActiveWindow.SmallScroll Down:=-40
Columns("C:C").Select
Range("C20").Activate
ActiveWindow.SmallScroll Down:=-65
Range("Table1[[#Headers],[Scientific Name]]").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWindow.SmallScroll Down:=-125
Selection.Replace What:="Acanthis cabaret", Replacement:= _
"Carduelis cabaret", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
xlReplaceFormula2
Selection.Replace What:="Carduelis cannabina", Replacement:= _
"Linaria cannabina", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
xlReplaceFormula2
Selection.Replace What:="Carduelis linaria", Replacement:= _
"Linaria cannabina", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
xlReplaceFormula2
Selection.Replace What:="Lacerta vivipara", Replacement:="Zootoca vivipara" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="Triturus helveticus", Replacement:= _
"Lissotriton helveticus", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
xlReplaceFormula2
Selection.Replace What:="Triturus vulgaris", Replacement:= _
"Lissotriton vulgaris", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
xlReplaceFormula2
Selection.Replace What:="Calaena leucostigma", Replacement:= _
"Helotropha leucostigma", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
xlReplaceFormula2
Selection.Replace What:="Celaena leucostigma", Replacement:= _
"Helotropha leucostigma", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:= _
xlReplaceFormula2
ActiveSheet.Shapes.Range(Array("Button 3")).Select
Selection.Delete
Range("R3:S6").Select
ActiveCell.FormulaR1C1 = "Rename latins done."
Range("A1").Select
End Sub
Bookmarks