VBA怎么把表格字体打印成写一样

我问了chat jpt给的回答
在Excel中实现随机调整字体大小和行距比较困难，需要使用VBA来编写宏来实现。以下是一个实现随机调整字体大小和行距的VBA宏代码：
```VBA
Sub Randomize_Font()
Dim rngCell As Range
Dim intFontSize As Integer
Dim intLineHeight As Integer
For Each rngCell In Selection
With 网页链接 intFontSize = .Size
intFontSize = intFontSize + Int((5 - (-5) + 1) * Rnd)
If intFontSize < 8 Then intFontSize = 8
If intFontSize > 20 Then intFontSize = 20
.Size = intFontSize
intLineHeight = .LineHeight
intLineHeight = intLineHeight + Int((2 - (-2) + 1) * Rnd)
If intLineHeight < 8 Then intLineHeight = 8
If intLineHeight > 20 Then intLineHeight = 20
.LineHeight = intLineHeight
End With
Next rngCell
End Sub
```
运行这个宏，将会随机增加或减少字体大小和行距，范围在-5到5之间。如果需要更改这个范围，可以修改宏代码中的数值。
请注意，在使用宏时，务必对其进行备份，并检查它是否与您的数据兼容，以避免数据丢失或其他问题。

然后我的VBA如下
/**
* tzzt Macro
*/
function tzzt()
{
Sub Randomize_Font()
Dim rngCell As Range
Dim intFontSize As Integer
Dim intLineHeight As Integer
For Each rngCell In Selection
With 网页链接 intFontSize = .Size
intFontSize = intFontSize + Int((5 - (-5) + 1) * Rnd)
If intFontSize < 8 Then intFontSize = 8
If intFontSize > 20 Then intFontSize = 20
.Size = intFontSize
intLineHeight = .LineHeight
intLineHeight = intLineHeight + Int((2 - (-2) + 1) * Rnd)
If intLineHeight < 8 Then intLineHeight = 8
If intLineHeight > 20 Then intLineHeight = 20
.LineHeight = intLineHeight
End With
Next rngCell
End Sub
}
运行不了

然后我让检查错误，给的答案如下
在以上代码中，函数tzzt()定义了一个子过程Randomize_Font()，但没有调用该子过程。因此，建议在tzzt()中添加调用Randomize_Font()的语句，例如：Call Randomize_Font()。

哪个大神帮忙解决一下，主要目的是想把excel指定字体打印成手写一样，随机调整字体大小行距高度等