Private Sub Worksheet_Change(ByVal Target As Range)
    ' Check if the changed cell is C1
    If Not Intersect(Target, Me.Range("C1")) Is Nothing Then
        Debug.Print "C1 changed to: " & Target.Value
        Call AskChatGPT_Mac
    End If
End Sub
