Thread: Interactive Macros

Macro's will just run to the end unless you pause them some way, so to this end they're not interactive, but, you can introduce input boxes along the way like this

'code supplied by Simon Lloyd
'22/07/2011
Microsoft Office Help
Sub Macro1()
Dim Rng As Range, MyCell As Range, oCell As Range
Dim i As Long, iR As Long, IB As String
i = 1
iR = 3
Set Rng = Range("A1:A10")
For Each MyCell In Rng
MyCell.Interior.ColorIndex = i
If i = 3 Then
IB = Application.InputBox("Enter a name", "Name Collection")
MyCell = IB
ElseIf i = 6 Then
IB = Application.InputBox("Enter a Range like B1 or B2:C5", "Range Collection")
For Each oCell In Range(IB)
oCell.Interior.ColorIndex = iR
iR = iR + 1
Next oCell
End If
i = i + 1
Next MyCell
End Sub

Just for fun