Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Highlights selected range

Sub GetRange()    Dim Rng As Range      On Error Resume Next    Set Rng = Application.InputBox(prompt:="Enter range", Type:=8)    If Rng Is Nothing Then       MsgBox "Operation Cancelled"    Else       Rng.Select    End If End Sub