Sub ColumnSelect()
  With ActiveCell
    Application.Goto Reference:=.Address(ReferenceStyle:=xlR1C1) & "," & .EntireColumn.Address(ReferenceStyle:=xlR1C1)
    .Activate
  End With
End Sub

Sub RowSelect()
  With ActiveCell
    Application.Goto Reference:=.Address(ReferenceStyle:=xlR1C1) & "," & .EntireRow.Address(ReferenceStyle:=xlR1C1)
    .Activate
  End With
End Sub

Sub RowColumnSelect()
  Dim r$, c$
  With ActiveCell
    r = .EntireRow.Address(ReferenceStyle:=xlR1C1)
    c = .EntireColumn.Address(ReferenceStyle:=xlR1C1)
    Application.Goto Reference:=.Address(ReferenceStyle:=xlR1C1) & "," & r & "," & c
    .Activate
  End With
End Sub