Thanks for the reply, that does fix the problem of the spaces in the sheet name, but not the apostrophe. But that's close enough for now, thankyou.

SubAddress:="'" & ws.Name & "'" & "!" + Found.Address