Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 1 Then Sheet2.[b30] = Target End If End If End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then If Target.Column = 1 Then Sheet2.[b30] = Target End If End If End Sub