mismatch Run Error 13 Type Mismatch The variable or property isnt of the correct type. SheetsSheet1RangeA1Value - 1 I have made some sl…