I need a simple macro to recalculate the worksheet (not the entire
workbook) whenever any cell in the range B5:G5 is edited.

I'm assuming it's a simple combination of Worksheet_Change and
ActiveSheet.Calculate

I've looked at Chip Pearson's event macros page, but can't seem to get it
right.

Thanks in advance for you help
Bob

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("B5:G5"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.CalculateFull
Application.EnableEvents = True
End Sub

--
Gary's Student


"Bob Tarburton" wrote:

I need a simple macro to recalculate the worksheet (not the entire
workbook) whenever any cell in the range B5:G5 is edited.

I'm assuming it's a simple combination of Worksheet_Change and
ActiveSheet.Calculate

I've looked at Chip Pearson's event macros page, but can't seem to get it
right.

Thanks in advance for you help
Bob

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.Range("B5:G5"),Target) is Nothing _
Then Exit Sub
me.Calculate
End Sub

--
Regards,
Tom Ogilvy


"Bob Tarburton" wrote in message
...
I need a simple macro to recalculate the worksheet (not the entire
workbook) whenever any cell in the range B5:G5 is edited.

I'm assuming it's a simple combination of Worksheet_Change and
ActiveSheet.Calculate

I've looked at Chip Pearson's event macros page, but can't seem to get it
right.

Thanks in advance for you help
Bob

Thanks Guys

I just changed Calculate to ActiveSheet.Calculate and it gave me what I
wanted.

I almost had it in my previous tries but I placed it in the worksheet code
module instead of the standard code module. Doh!

"Bob Tarburton" wrote in message
...
I need a simple macro to recalculate the worksheet (not the entire
workbook) whenever any cell in the range B5:G5 is edited.

I'm assuming it's a simple combination of Worksheet_Change and
ActiveSheet.Calculate

I've looked at Chip Pearson's event macros page, but can't seem to get it
right.

Thanks in advance for you help
Bob