En el siguiente script es bastante útil al momento de personalizar tus códigos para que se ajusten a tus necesidades, algo común en Excel es requerir obtener la selección de celdas.

Codigo VBScript para obtener rango seleccionado

El siguiente script te permite obtener la selección, rango seleccionado o los rangos seleccionados si has hecho varias selecciones.

Public Sub GetSelection()
Dim r As Range
Dim s As String

  Select Case Selection.Areas.Count
  Case 0:
    MsgBox "Sin seleccion."
  Case 1:
    MsgBox "Rango seleccionado: " & Selection.Areas(1).Address(False, False)
  Case Else
    s = ""
    For Each r In Selection.Areas
      s = s + vbNewLine + r.Address(False, False)
    Next r
    MsgBox "Varios rangos seleccionados:" & s
  End Select

End Sub

 

Artículo anteriorImportar Calendario de Google a MS Outlook
Artículo siguienteReparar PST dañado con Stellar Repair for Outlook