I think you need to do this

from

Sub Button1_Click()
Sub Sort_Acronyms()

With Sheets("sheet1")