I get the Sheet Name to Reflect a Info from a Specific Cell, but how can I have a default value when blank?

I get the Sheet Name to Reflect a Info from a Specific Cell, but how can I have a default value when blank?

Using this From Karolus

sub abc(event)
on Error resume next
if right(event.AbsoluteName, 4 ) = “$K$6” then
event.Spreadsheet.Name = event.String
end if
end sub