Anyone can check if there is any issue for below code?

Question

Sub Button1_Click()

Worksheets("Sheet1").Activate
ActiveSheet.Unprotect

Dim rowHeader As Long: rowHeader = 4
Dim unReleaseStr As String: unReleaseStr = "