can someone help? I have a code, as below, which is my UserForm (Entry of ne Risk into Risk Register) however no matter what the date is always returned in the American format mm/dd/yy. I need it in the UK format dd/mm/yy. Any suggesttions?
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Risk_Register")
Dim n As Long
n = sh.Range("I" & Application.Rows.Count).End(xlUp).Row
sh.Unprotect "kk"
Range("i13:i500").Columns.AutoFit
Range("j13:j500").Columns.AutoFit
Range("l13:l500").Columns.AutoFit
Range("n13:n500").Columns.AutoFit
Range("o13:o500").Columns.AutoFit
Range("p13:p500").Columns.AutoFit
Range("t13:t500").Columns.AutoFit
Range("x13:x500").Columns.AutoFit
sh.Range("I" & n + 1).Value = Me.EpicName_CB.Value
sh.Range("j" & n + 1).Value = Me.DateRaised_TX.Value
sh.Range("l" & n + 1).Value = Me.RaisedBy_TX.Value
sh.Range("m" & n + 1).Value = Me.RiskType_CB.Value
sh.Range("n" & n + 1).Value = Me.RiskName_TX.Value
sh.Range("o" & n + 1).Value = Me.RiskDescription_TX.Value
sh.Range("p" & n + 1).Value = Me.ImpactDescription_TX.Value
sh.Range("q" & n + 1).Value = Me.AreaOfImpact_CB.Value
sh.Range("r" & n + 1).Value = Me.RiskValue_TX.Value
sh.Range("t" & n + 1).Value = Me.RiskOWner_TX.Value
sh.Range("u" & n + 1).Value = Me.Impact_CB.Value
sh.Range("v" & n + 1).Value = Me.Probablility_CB.Value
sh.Range("x" & n + 1).Value = Me.MitigationAction_TX.Value
sh.Range("y" & n + 1).Value = Me.PostMitigationValue_TX.Value
sh.Range("aa" & n + 1).Value = Me.ResolveDate_TX.Value
If Me.OptionButton1.Value = True Then
sh.Range("k" & n + 1).Value = "Open"
End If
If Me.OptionButton2.Value = True Then
sh.Range("k" & n + 1).Value = "Closed"
End If
If Me.OptionButton3.Value = True Then
sh.Range("k" & n + 1).Value = "For Escalation"
End If
Bookmarks