Below Macro is giving error message. Need urgent help..
Sub sbUnProtectSheet()
ActiveSheet.Unprotect "9999"
Set SourceRange = ActiveSheet.Range("B10:H10")
Set FillRange = ActiveSheet.Range("B11:H39")
SourceRange.AutoFill.FillRange
Range("B11").Select
ActiveSheet.Protect "9999"...