Urgent Help - VBA Macro_Need Guidance

[Virgo_anil]

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", True, True


End Sub

 

[shg]

Range("B10:H10").Copy Range("B11:B39")

 

[JoeMo]

If you want to use Autofill, the fill range needs to include the source range:

Dim SourceRange As Range, FillRange As Range
Set SourceRange = Range("B10:H10")
Set FillRange = Range("B10:H39")
SourceRange.AutoFill Destination:=FillRange

There's also an optional Type argument for Autofill which governs how the fill is to be handled - see VBA Help for Range.AutoFill Method

 

[Virgo_anil]

Thanks a ton shg and JoeMo. Your help is much appreciated

 

[JoeMo]

Thanks a ton shg and JoeMo. Your help is much appreciated

Glad we could help - thanks for the reply.