Работа с одинарными кавычками в Excel VBA SQL запросов

Я использую SQL-запросы Excel для извлечения данных из серверной части в соответствии с выбором, который я делаю в выпадающем списке. Однако мои SQL-запросы не работают в тех случаях, когда в значении выпадающего списка есть одиночная кавычка ('). Например-- Мужская одежда. Пожалуйста, предложите мне способ справиться с этой проблемой

    SQL = "select Segment,Weeks,Value from [Category performance data$] where       Departments='" &       Sheet3.Range("Dept_name").Value & _
     "' and Metric ='Total Spend' group by Segment,Weeks,Value"
    Call execQry