It starts on the "Data30 - Dev" sheet and makes the number format changes, then goes to "Formulas" sheet and selects a few different ranges and changes the format of those ranges. The last step is to go back to sheet "Data30 - Dev" and go to cell A1.
Here is the code that is being used. TI worked as a macro but for some reason does not work now that it is set as a VBA code. The first portions of each "IF" statement work but they both hang up on one of the red lines. I'm not sure what one.
If Range("J9").Value = "Inch" Then
Range("J9").Value = "Metric"
Range("G12:K12").Select
Selection.NumberFormat = "0.0000"
Range("G13:K13").Select
Selection.NumberFormat = "0.0000"
Sheets("Formulas").Select
Range("G28:K33").Select
Selection.NumberFormat = "0.0000"
Range("G35:K40").Select
Selection.NumberFormat = "0.0000"
Range("G42:K45").Select
Selection.NumberFormat = "0.0000"
Range("G47:K49").Select
Selection.NumberFormat = "0.0000"
Else
Range("J9").Value = "Inch"
Range("G12:K12").Select
Selection.NumberFormat = ".0000"
Range("G13:K13").Select
Selection.NumberFormat = ".0000"
Sheets("Formulas").Select
Range("G28:K33").Select
Selection.NumberFormat = ".0000"
Range("G35:K40").Select
Selection.NumberFormat = ".0000"
Range("G42:K45").Select
Selection.NumberFormat = ".0000"
Range("G47:K49").Select
Selection.NumberFormat = ".0000"
End If
Range("A1").Select