You can use the below to delete Scrollbars when a row is deleted:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sb As Variant
For Each sb In ActiveSheet.Shapes
If Left(sb.Name, 10) = "Scroll Bar" Then
If sb.DrawingObject.LinkedCell = "#REF!" Then
Application.ScreenUpdating = False
sb.Delete
Application.ScreenUpdating = True
End If
End If
Next sb
End Sub
Resize, move, etc:
Option Explicit
Sub fixBar()
Dim sb As Variant
For Each sb In ActiveSheet.Shapes
If Left(sb.Name, 10) = "Scroll Bar" Then
With sb.DrawingObject
.Top = Range(.LinkedCell).Top + 5
.Left = Range(.LinkedCell).Left
.Width = Range(.LinkedCell).Width
.Height = Range(.LinkedCell).Height - 7
End With
End If
Next sb
End Sub
LinkBack URL
About LinkBacks
smudgepost 
Register To Reply
Bookmarks