"Attribute VB_Name = ""Module2"""
Sub dd()
'
' dd Macro
' Macro recorded 2.06.2000 by Stephen Burt
' Macro replaces text wind direction entries from AWS with veer from N degrees
" From The Weather Observer's Handbook (Cambridge University Press, 2012)"
'
'
"    Selection.Replace What:=""NNE"", Replacement:=""22.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""ENE"", Replacement:=""67.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""ESE"", Replacement:=""112.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""SSE"", Replacement:=""157.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""NE"", Replacement:=""45"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""SE"", Replacement:=""135"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""E"", Replacement:=""90"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""SSW"", Replacement:=""202.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""WSW"", Replacement:=""247.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""SW"", Replacement:=""225"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""WNW"", Replacement:=""292.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""NNW"", Replacement:=""337.5"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""NW"", Replacement:=""315"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""S"", Replacement:=""180"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""N"", Replacement:=""360"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""W"", Replacement:=""270"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
"    Selection.Replace What:=""---"", Replacement:=""0"", LookAt:=xlPart, _"
"        SearchOrder:=xlByRows, MatchCase:=False"
End Sub