Date Format Change in other systems and due to that Macro doesn't work properly

[brajpalshishodia]

Hello Guys,

I am having quite a hard time to solve this issue as it's working seamlessly on my system and any other system which has system date format in US, i.e. mm-dd-yyyy, however, the issue is that client is from Europe and their system date formats are different and can be anything, e.g. dd-mm-yyyy or anything.

I tried everything to keep the date format constant but it's futul and generating the issue on client's system because the process doesn't run.

Here in the attached workbook "Main" sheet, there is a button called "Generate Billing/Contract" when it's clicked, an userform pop-up with 2 option buttons, 1st is for Billing Invoice & 2nd for Rent Agreement, after selecting whichever, there is userform which requires to be filled with the information from the "Reservation_Raw" sheet and create the Invoice/Agreement accordingly but issue as I explained, arise when system date format is other than USA standard date format because the data is also in US date format and in client's system, after selecting "Check In" date, they get "Check Out" date blank and other fields are also blank because all the fields are interconnected.

Below is the sample of code where issue arise:

On Error GoTo Single_Date:
Me.cb_CheckOut.List = cRng.Value
Single_Date:
If Err.Number > 0 Then
Me.cb_CheckOut.Clear
'Me.cb_CheckOut.AddItem Format(wsR.Range("BB" & lrw).Value, "DD-MM-YYYY HH:MM:SS")
Me.cb_CheckOut.AddItem wsR.Range("BB" & lrw).Value
Resume Clear_Err:
Clear_Err:
End If

I tried to attach the workbook also for your kind perusal but I am not able to as attachment option is not working while posting this issue here but if you need, please let me know how can I provide the workbook.

Kindly help me out in this as being stuck for last some weeks and due to this project is not finished.

Thanks a lot.