s,
----------------------
Sub IdentifyTheColumnRanges()
Dim rngSrc As Excel.Range
Set rngSrc = Range("BU:BU, AF:AF, FL:FL")
MsgBox rngSrc.Address
Set rngSrc = Nothing
End Sub
'-------------------------
Jim Cone
San Francisco, USA

"shternm"
wrote in message

Can some please explain to me why I am getting 'Range' of object
'_Global' failed error?
The ranges that are referred to on that line are 3 cell columns.
Thank you, thank you, thank you ………


Sub Macro2()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim rngToSearch As Range
Dim wks As Worksheet
Dim rngFound As Range
Dim Value As Variant
Dim i As Long
Dim rngSrc As Range
Dim nameToFind As String

Set wks = Sheets("Query")
Set rngToSearch = wks.Columns(1)
Set rngSrc = Range("BU" & "Affl")
----------------------------------- Error Line
-snip-