Syntax to set range

**marlonsaveri** · 02-07-2011, 01:34 PM

Private Sub UserForm_Initialize()
 Dim space as range
 Dim cell as range
on error goto correcterror
 Set space = Sheets("font").Range("E1", Range("E1").End(xlDown).address)
 For Each cell In space
   ComboBox1.AddItem cell.formulaR1C1
 Next Cell
Exit Sub
correcterror:
End Sub

**shg** · 02-07-2011, 01:42 PM

Set space = Sheets("font").Range("E1", Range("E1").End(xlDown).address)

The second range reference is to the active sheet.

    With Worksheets("font")
        Set Space = .Range("E1", .Range("E1").End(xlDown))
    End With

**TMS** · 02-07-2011, 01:45 PM

@shg: wrong question, huh? ;-)

**marlonsaveri** · 02-15-2011, 01:48 PM

I see; always we use range we need to say what is the sheet. Thanks

Syntax to set range

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Syntax to set range

re: Syntax to set range

re: Syntax to set range

Re: Syntax to set range

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions