解决方法如下：

1. 确保Range("O26")中有一个有效的初始文件名。如果Range("O26")为空或包含无效的文件名，将会出现空白对话框。

2. 使用If语句来检查Range("O26")是否为空，如果为空，则不执行GetSaveAsFilename命令。

示例代码如下：

Dim fileName As Variant

If Range("O26") <> "" Then
    fileName = Application.GetSaveAsFilename(InitialFileName:=Range("O26"))
    
    If fileName <> False Then
        ' 执行保存文件的操作
        ' ...
    Else
        ' 用户取消保存操作
        ' ...
    End If
End If

在上面的示例中，如果Range("O26")为空，则不会执行GetSaveAsFilename命令。如果Range("O26")不为空，将会弹出保存文件对话框，并且用户选择了一个文件名后，可以执行相应的保存文件操作。如果用户取消保存操作，则可以在代码中进行适当的处理。

请根据您的具体需求修改示例代码中的保存文件操作和取消保存操作的处理部分。