Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Intersect(Target, Me.Selection)
If Rng.Columns.Count = 1 Then
' Enable Ribbon Button
Else
' Do nothing
End If
End Sub