I have to amend my last suggestion: a oneliner suffices:

Sub M_snb()
   if not evaluate("isref(" & shtName &"!A1)") then thisworkbook.sheets.add.name=shtname
End Sub