I'm trying to make a workbook respond to changes in the Windows Regional Settings.
According to what I've read, this is the way to enter currency, date, and times.
The Currency and the Date have the Number Format = 'Currency' and 'Date' but the Time has a Number Format = 'Custom'Option Explicit Sub Macro1() Worksheets("Sheet1").Columns(1).Delete Worksheets("Sheet1").Range("a1").Value = CCur(-12341234.45) Worksheets("Sheet1").Range("a2").Value = DateSerial(2014, 10, 20) Worksheets("Sheet1").Range("a3").Value = TimeSerial(10, 10, 15) End Sub
Currency and Date respond to changes in WRS, but since Time is 'Custom' it does not. If I manually apply the 'Time' format, then it does respond.
Can anyone suggest a correction or workaround?
Thanks