Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Read a range from InputBox

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