Lidando com aspas simples em consultas do Excel vba sql

Estou usando o Excel sql queries para buscar dados do back-end de acordo com a seleção que eu faço em uma caixa suspensa.No entanto minhas consultas sql não estão funcionando em casos onde há uma aspa simples (') no valor da caixa suspensa. Por exemplo - Men's Wear. Por favor me sugira uma maneira de lidar com esse 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