VBA命名Excel工作表后创建超链接提示引用无效问题求助

Excel的超链接子地址（SubAddress）规则要求：当工作表名称包含空格、短横线、日期类特殊格式字符或其他非字母数字开头的字符时，必须用英文单引号将工作表名称完整包裹，否则Excel无法正确识别工作表名称的边界，会把名称中的空格等字符当做地址分隔符处理，最终触发引用无效错误。你生成的工作表名「May-21 - Sam Smith」包含多个空格，直接拼接字符串的写法不符合SubAddress的格式要求，所以点击超链接报错。

修改超链接创建代码，给工作表名称前后加上英文单引号即可，修改后的代码如下：

ActiveSheet.Hyperlinks.Add Anchor:=ws.Range("A" & LastRow), Address:="", SubAddress:="'" & Naming & "'!A1", TextToDisplay:=ProjectNumber

额外优化建议 #

• 如果后续存在修改工作表名的需求，可以直接用工作表对象的Name属性动态获取，避免变量和实际表名不一致的问题，写法如下：

SubAddress:="'" & ws.Name & "'!A1"

• 新建工作表时建议提前校验名称合法性，避免出现\ / ? * [ ]等Excel禁止作为工作表名的字符，防止后续其他操作报错。

内容的提问来源于stack exchange，提问作者SuzieJ