Tratar con comillas simples en consultas de Excel vba sql

Estoy utilizando las consultas de Excel SQL para obtener datos del backend de acuerdo con la selección que hago en un cuadro desplegable. Sin embargo, mis consultas de SQL no funcionan en los casos en que hay una comilla (') en el valor del cuadro desplegable. Por ejemplo-- Desgaste de los hombres. Por favor sugiéreme una manera de lidiar con este problema

    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