________________________________VBAFOR ______ Auto Short __________
Sub insert_image()
'
' insert_image Macro
'
'
'Unlock Sheet
ActiveSheet.Unprotect
'Filter DB Small to Large
ActiveWorkbook.Worksheets("Master_DB_Beneficiaries_").AutoFilter.Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("Master_DB_Beneficiaries_").AutoFilter.Sort. _
SortFields.Add2 Key:=Range("F5:F265"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Master_DB_Beneficiaries_").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Lock Sheet
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub