Hello,

My worksheet has 3 columns and 493 rows of data. For example

COL 2 COL3 COL4
Row1 0840600 2219 text
Row2 0840625 1345 text

I want COL2 - COL4 bold and interior color 15 (grey) if the number in
COL2 is between 0804600-0804663.

Why am I getting this this error "Method range of global object
failed"

at this line of code "Range("cell.Address(0, 0):cell.offset(,
2).Address(0, 0)").Font.Bold = True"?

Sub FindAddData3()
'
' Define Variables
Dim cell As Variant
' Set Variables
For Each cell In Range("B4:B494") 'Change Range Reference
'
If cell.Text = 804600 Or cell.Text <= 804663 Then
'
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Font.Bold = True
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Interior.ColorIndex = 15

Else
'Do NOTHING
End If
Next cell
End Sub

Thank you for your help,
jfcby

Fixed this and few other things.....
Set cell to type range; use And connector in the logical test; change range
assignment ......

Sub FindAddData3()
'
' Define Variables
Dim cell As Range
' Set Variables
For Each cell In Range("B4:B494") 'Change Range Reference
'
If cell.Text = 804600 And cell.Text <= 804663 Then
'
With Range(Cells(cell.Row, 2), Cells(cell.Row, 4))
.Font.Bold = True
.Interior.ColorIndex = 15
End With

End If
Next cell
End Sub

--

Regards,
Nigel




"jfcby" wrote in message
...
Hello,

My worksheet has 3 columns and 493 rows of data. For example

COL 2 COL3 COL4
Row1 0840600 2219 text
Row2 0840625 1345 text

I want COL2 - COL4 bold and interior color 15 (grey) if the number in
COL2 is between 0804600-0804663.

Why am I getting this this error "Method range of global object
failed"

at this line of code "Range("cell.Address(0, 0):cell.offset(,
2).Address(0, 0)").Font.Bold = True"?

Sub FindAddData3()
'
' Define Variables
Dim cell As Variant
' Set Variables
For Each cell In Range("B4:B494") 'Change Range Reference
'
If cell.Text = 804600 Or cell.Text <= 804663 Then
'
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Font.Bold = True
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Interior.ColorIndex = 15

Else
'Do NOTHING
End If
Next cell
End Sub

Thank you for your help,
jfcby

Thanks Nigel, Works great!

"Nigel" wrote in message
...
Fixed this and few other things.....
Set cell to type range; use And connector in the logical test; change
range assignment ......

Sub FindAddData3()
'
' Define Variables
Dim cell As Range
' Set Variables
For Each cell In Range("B4:B494") 'Change Range Reference
'
If cell.Text = 804600 And cell.Text <= 804663 Then
'
With Range(Cells(cell.Row, 2), Cells(cell.Row, 4))
.Font.Bold = True
.Interior.ColorIndex = 15
End With

End If
Next cell
End Sub

--

Regards,
Nigel




"jfcby" wrote in message
...
Hello,

My worksheet has 3 columns and 493 rows of data. For example

COL 2 COL3 COL4
Row1 0840600 2219 text
Row2 0840625 1345 text

I want COL2 - COL4 bold and interior color 15 (grey) if the number in
COL2 is between 0804600-0804663.

Why am I getting this this error "Method range of global object
failed"

at this line of code "Range("cell.Address(0, 0):cell.offset(,
2).Address(0, 0)").Font.Bold = True"?

Sub FindAddData3()
'
' Define Variables
Dim cell As Variant
' Set Variables
For Each cell In Range("B4:B494") 'Change Range Reference
'
If cell.Text = 804600 Or cell.Text <= 804663 Then
'
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Font.Bold = True
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Interior.ColorIndex = 15

Else
'Do NOTHING
End If
Next cell
End Sub

Thank you for your help,
jfcby

I have what I hope is a simple question.
I've been using Excel 2003 on my new laptop since September with no
problems. Yesterday I started to have a problem. No matter what file I opened
or even after rebooting computer, once I start to use the program the + icon
replaces the normal I icon. All I can do is expand a contract ranges from the
cell I was in. I can't get rid of the + icon no matter what I do. I end up
frustrated and leaving Excel.
Any ideas?
--
Rick


"jfcby" wrote:

Hello,

My worksheet has 3 columns and 493 rows of data. For example

COL 2 COL3 COL4
Row1 0840600 2219 text
Row2 0840625 1345 text

I want COL2 - COL4 bold and interior color 15 (grey) if the number in
COL2 is between 0804600-0804663.

Why am I getting this this error "Method range of global object
failed"

at this line of code "Range("cell.Address(0, 0):cell.offset(,
2).Address(0, 0)").Font.Bold = True"?

Sub FindAddData3()
'
' Define Variables
Dim cell As Variant
' Set Variables
For Each cell In Range("B4:B494") 'Change Range Reference
'
If cell.Text = 804600 Or cell.Text <= 804663 Then
'
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Font.Bold = True
Range("cell.Address(0, 0):cell.offset(, 2).Address(0,
0)").Interior.ColorIndex = 15

Else
'Do NOTHING
End If
Next cell
End Sub

Thank you for your help,
jfcby