Thread: Getting VBA Macro to work with a range of cells
View Single Post
 
Old 10-19-2025, 03:15 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,489
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
This works for me:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With ActiveSheet
  If Intersect(Target, .Range("A1:A10")) Is Nothing Then .Shapes("Calendar").Visible = False: Exit Sub
  If Selection.Cells.Count > 1 Then .Shapes("Calendar").Visible = False: Exit Sub
  .Shapes("Calendar").Visible = True
  .Shapes("Calendar").Left = ActiveCell.Left + ActiveCell.Width
  .Shapes("Calendar").Top = ActiveCell.Top + ActiveCell.Height
End With
End Sub
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote