Dd2DMS v1.0

Dd2DMS: Excel function, written in Visual Basic (VB) code. Converts a cell reference of decimal degree coordinates (Dd) to degrees minutes seconds (DMS). Useful if for some crazy reason you want to use DMS coordinates, which, honestly, is only applicable to peg-legged pirates.


Dd2DMS can be obtained from http://www.cartisan.com/resources/utilities/coordinate_conversion_functions.html


This formula was created by Cartisan Maps, and is provided for general public use. If you are to be using this code for other than personal or educational uses, please send us an email at maps@cartisan.com. This is only to inform us if this is a useful service to provide.

Otherwise, Cartisan Maps provides this code as-is, and while we've tested it and use it, it is without expressed or implied warranty of any kind. We cannot guarantee any user support, but we welcome your comments and feedback via maps@cartisan.com.

Instructions:
1. Open Microsoft Excel and start the Visual Basic Editor (Alt-F11). 
2. Under the Insert Menu, select Module.
3. Copy the code from below and paste it into the Visual Basic Editor.
4. Close the Visual Basic Editor and return to Excel.
5. To use the fuction, type "=dd2dms(YOUR COORDINATES)", where "YOUR COORDINATES" is the reference to the cell containing your coordinates, i.e. "A17"
6. The function returns the coordinate in a standard "DDD°MM'SS"" format.

USAGE NOTES:
Coordinate formatting: All of your coordinates must be in the format of "##.###", with no alphabetical replacement for "-". South and West = "-", and no need to worry about North or East. You're dealing with geometry and numbers, not some number/letter concoction. If you do have N's and E's in your coordinates, just do a Find/Replace.

Macro Security: Until we start signing our macros with Digital Trust Certificates, you'll have to adjust the security settings of Excel to allow the macros to function when you reopen your workbook. To do this within Excel, go to the Tools Menu, select Macros, then select Security. Set your security level to Medium, which will allow you to confirm which macros to run when you open your workbook. Alternatively, if you have virus protection software, select Low. Eventually we'll determine how to embed our functions within Excel, and not just workbooks.

Continuity: Adding this code only effects a single Excel workbook. Until our next update, you'll have again add this code to any additional workbooks you use. Annoying, yes.
Copy and Paste the following code:
' Dd2DMS v1.0
' Original download: http://www.cartisan.com/resources/utilities/dd2dms.html
' Created by Cartisan Maps
' Feedback, suggestions, and/or acknowledgement of for-profit use: maps@cartisan.com
Function Dd2DMS(DMS) As Variant
With Application
degrees = Fix(DMS)
minutes = (DMS - degrees) * 60 * Sgn(DMS)
seconds = Format(((minutes - Int(minutes)) * 60), "0")
Dd2DMS = " " & degrees & "° " & Int(minutes) & "' " & seconds + Chr(34)
End With
End Function