diff --git a/ElementX/Sources/Other/HTMLParsing/AttributedStringBuilder.swift b/ElementX/Sources/Other/HTMLParsing/AttributedStringBuilder.swift
index 3be6ef8a9..81f3fd6e2 100644
--- a/ElementX/Sources/Other/HTMLParsing/AttributedStringBuilder.swift
+++ b/ElementX/Sources/Other/HTMLParsing/AttributedStringBuilder.swift
@@ -220,9 +220,9 @@ struct AttributedStringBuilder: AttributedStringBuilderProtocol {
                 pre,code {
                     background-color: \(temporaryCodeBlockMarkingColor.toHexString());
                     display: inline;
-                    font-family: monospace;
                     white-space: pre;
-                    -coretext-fontname: Menlo-Regular;
+                    font-size: 0.9em;
+                    -coretext-fontname: .AppleSystemUIFontMonospaced-Regular;
                 }
                 h1,h2,h3 {
                     font-size: 1.2em;
diff --git a/UnitTests/Sources/AttributedStringBuilderTests.swift b/UnitTests/Sources/AttributedStringBuilderTests.swift
index bd56289ae..d24a51f32 100644
--- a/UnitTests/Sources/AttributedStringBuilderTests.swift
+++ b/UnitTests/Sources/AttributedStringBuilderTests.swift
@@ -64,7 +64,7 @@ class AttributedStringBuilderTests: XCTestCase {
             return
         }
         
-        XCTAssertEqual(attributedString.runs.first?.uiKit.font?.fontName, "Menlo-Regular")
+        XCTAssertEqual(attributedString.runs.first?.uiKit.font?.fontName, ".AppleSystemUIFontMonospaced-Regular")
         
         let string = String(attributedString.characters)
         
diff --git a/changelog.d/pr-267.change b/changelog.d/pr-267.change
new file mode 100644
index 000000000..10a280931
--- /dev/null
+++ b/changelog.d/pr-267.change
@@ -0,0 +1 @@
+Reduce code block font size and switch to SanFrancisco Monospaced
\ No newline at end of file