Radzenie sobie z pojedynczymi cudzysłowami w zapytaniach excel vba sql

Korzystam z kwerend Excel sql do pobierania danych z zaplecza zgodnie z wyborem dokonanym w rozwijanym polu.Jednak moje kwerendy sql nie działają w przypadkach, gdy istnieje pojedyncza cudzysłów (') w wartości listy rozwijanej. Na przykład - Odzież męska. Proszę zaproponować mi sposób na rozwiązanie tego problemu

    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   

questionAnswers(1)

yourAnswerToTheQuestion