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
