How to load a range into a Variant

[tonywill]

I have the folowing snippet of code which I have been trying to adapt to reading in about 300 different words from a range into a variant.

Option Explicit
Option Compare Text
Sub Highlightnouns()
Application.ScreenUpdating = False
Dim myWords As Variant
;
;

' would be nice to be able to load from a range instead typing words into here
myWords = Array("Drill", "Filter", "oil", "seal", "Gearbox")

I have tried various ways to do this but none work,
tony

 

[AlphaFrog]

Try something like this...

Dim myWords As Variant
[COLOR="Red"]myWords = Range("A1:A5")[/COLOR]

MsgBox myWords(1, 1) & vbLf & _
       myWords(2, 1) & vbLf & _
       myWords(3, 1) & vbLf & _
       myWords(4, 1) & vbLf & _
       myWords(5, 1)