Yes AS, you are correct. The article has been revised. Thanks for noticing this and letting us know.

Regards
Mohammad Shah Miran
Team ExcelDemy

Thanks, MIKE M for your question. The problem you are stating indicates that the Solver could not find a solution that satisfied the optimization constraints you specified. This can happen for several reasons, including Incorrect input data, Incorrect model specification, Insufficient or incorrect constraints, Numerical instability, etc. Try to rectify those issues or if you need a more specific solution to your problem, it would be convenient if you provide your dataset. Thanks for being with ExcelDemy.

Regards
Mohammad Shah Miran
Team ExcelDemy

Thank you, Jeb, for your query. You can take the API as a String value to your VBA code. Thus you don’t need to put the API value in your Excel sheet. So the existing code given in the workbook here can be modified as follows:

 Option Explicit
Public Function Driving_Distance(startlocation As String, destination As String)
Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String, keyvalue As String

keyvalue = "AhFG0hk5nKCcQlk80MRaSk1ZtoYUYsX98BCLWi7p7MKZ - VrzOWptdUwsvj9D3L9F"
First_Value = "https://dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins="
Second_Value = "&destinations="
Last_Value = "&travelMode=driving&o=xml&key=" & keyvalue & "&distanceUnit=mi"

Set mitHTTP = CreateObject("MSXML2.ServerXMLHTTP")

mitUrl = First_Value & startlocation & Second_Value & destination & Last_Value
mitHTTP.Open "GET", mitUrl, False
mitHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
mitHTTP.Send ("")
Driving_Distance = Round(Round(WorksheetFunction.FilterXML(mitHTTP.ResponseText, "//TravelDistance"), 3), 0)
End Function

Here we have changed the first two line of the given code. The previous code was as like:

 Public Function Driving_Time(startlocation As String, destination As String, keyvalue As String)
Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String 

But we have removed the third argument which represents the API value. Alternately, We declare the variable outside and put the API as a string value.

 Public Function Driving_Distance(startlocation As String, destination As String)
Dim First_Value As String, Second_Value As String, Last_Value As String, mitHTTP As Object, mitUrl As String, keyvalue As String

keyvalue = "AhFG0hk5nKCcQlk80MRaSk1ZtoYUYsX98BCLWi7p7MKZ - VrzOWptdUwsvj9D3L9F" 

Now here comes to your second question. You have to create a customized Add-in to store your VBA code and therefore allow you to execute the code in any workbook. Hope you get your answer. However, if you have any further query, please let me know.

Thank you VIRGIAL for your query. Yes, you can use the COUNTIF function to count the number of items that have broken the Conditional Formatting threshold value. For doing this, write down the following formula in your desired cell. (eg. D11)
=COUNTIF(D5:D10, "<12000")
Here, D5:D10 is the data range for which you want to set your condition and 12000 is the Conditional Formatting threshold value.
Additionally, the following image can be useful to comprehend the task.

Thank you for getting in touch with us. Based on your comment, what i understand is that you are interested in creating a schedule to track your maintenance work. I have provided an Excel file (Machine Maintenance Schedule) that outlines the different types of work you will need to perform. However, I would like to confirm whether your MNT1 and MNT2 etc. tasks are repetitive, or if they only need to be completed once every 15 days.
If you would like to automate this process, you can incorporate a nested for loop to generate the desired output. Additionally, you can develop a sub-function to prevent repetitive values from being generated.
Further, if you have any questions or concerns about this matter, leave your query here. We are here to help and are at your disposal.