Modifications to code to allow cell references rather than InputBox popup

[gmcgough600]

Hi,

Trying to modify the code below to allow the direct use of cell references instead of popping up an InputBox. I've tried e.g.

    Set tags = Range("B2:I2")

but this isn't working. Also wondering why the code below works with

Set

used only once rather than at the start of each line?

Dim tags As Range    Dim start_time, end_time As Variant
    Dim time_conversion, time_integer As Long
    Dim server_name As String
    
    Set tags = Application.InputBox("Select the PI Tags", "Obtain Range Object", Type:=8)
    start_time = Application.InputBox("Select start time (dd/mm/yyyy hh:mm:ss) ", "Obtain Range Object")
    end_time = Application.InputBox("Select end time (dd/mm/yyyy hh:mm:ss) ", "Obtain Range Object")
    Interval = Application.InputBox("Select time interval", "Obtain Range Object")
    server_name = Application.InputBox("Select PI Server name / ID", "Obtain Range Object", "XXX-PI")

Thanks

 

[Fluff]

You only use Set with objects, not with strings, numbers or variants.
in what way doesn't your first bit of code work?