Unexplicable error

[Ayo]

I have this error occuring everytime I try to runnthe code. "Unable to set
the ShowDetail property of the range class"
I have a button with this sub:
Private Sub cmdMarket_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Me.Rows("2:60").EntireRow.Hidden = False
ActiveWindow.ScrollRow = 2
ActiveSheet.Range("4:31").EntireRow.Hidden = True
Me.Range("C37") = "ALL VENDORS"
Me.Range("C32") = Me.Range("C4")

Me.Range("D39:H58").Select
Selection.Replace What:="$A$3:$A$712=$B1",
Replacement:="$B$3:$B$712=$C$32"
Selection.Replace What:="$A$3:$A$712<>""""",
Replacement:="$B$3:$B$712=$C$32"
Me.Range("A3").Select
Me.Calculate
Application.EnableEvents = True
Call groupMarket
End Sub

The groupMarket has this sub:
Sub groupMarket()
Range("40:40").Rows.ShowDetail = False
Range("42:42").Rows.ShowDetail = False
Range("44:44").Rows.ShowDetail = False
Range("46:46").Rows.ShowDetail = False
Range("48:48").Rows.ShowDetail = False
Range("50:50").Rows.ShowDetail = False
Range("52:52").Rows.ShowDetail = False
Range("54:54").Rows.ShowDetail = False
Range("56:56").Rows.ShowDetail = False
Range("58:58").Rows.ShowDetail = False
End Sub

Everytime I click the button, the execution stops at the first line in
groupMarket(). When I click debug and click the run button in VBE, the
execution continues and the codes run fine. I can't understand why it is
stopping at "Range("40:40").Rows.ShowDetail = False" every single time.

Any ideas?

 

[OssieMac]

Try the following. Note the dot in front of range to tie it to the With

Sub groupMarket()
'Edit "Sheet1" to your sheet name
With Sheets("Sheet1")
.Range("40:40").Rows.ShowDetail = False
.Range("42:42").Rows.ShowDetail = False
.Range("44:44").Rows.ShowDetail = False
.Range("46:46").Rows.ShowDetail = False
.Range("48:48").Rows.ShowDetail = False
.Range("50:50").Rows.ShowDetail = False
.Range("52:52").Rows.ShowDetail = False
.Range("54:54").Rows.ShowDetail = False
.Range("56:56").Rows.ShowDetail = False
.Range("58:58").Rows.ShowDetail = False
End With
End Sub