Dealing with single quotes in excel vba sql queries

Question

I am using excel sql queries to fetch data from the backend according to the selection i make in a dropdown box.However my sql queries are not working in cases where there is a

Answer 1

Departments='" & replace(Sheet3.Range("Dept_name").Value, "'", "''") & _ "' and Metric