Thread
:
Runtime Error "1004" Select Method of Range Class Failed
View Single Post
#
2
Posted to microsoft.public.excel.programming
JE McGimpsey
external usenet poster
Posts: 4,624
Runtime Error "1004" Select Method of Range Class Failed
You can only select cells on the active sheet. OTOH, you don't need to
select at all:
With Worksheets("Roll-up by RSM").Range("D13:G17,I13:L17,D21:G25")
Select Case Worksheets("Master List").Range("CA26").Value
Case "% of Sales"
.NumberFormat = "0.00%"
Case "Total $"
.NumberFormat = _
"_($* #,##0_);_($* (#,##0);_($* - _);_(@_)"
Case Else
.NumberFormat = _
"_($* #,##0.00_);_($* (#,##0.00);_($*-??_);_(@_)"
End Select
End With
In article ,
(Stephen) wrote:
Hi -
Currently I have formatting macros attached to various Comboboxes and
Toggle Buttons. I copied one of the macros below. The problem I am
having now is when I try to insert cells on a different tab, I get the
Runtime Error 1004. When I click on debug, it highlights the selected
range of the macro (line 2 below). I can only make changes if I
disable the macros. Can this be fixed?
Application.ScreenUpdating = False
Worksheets("Roll-up by RSM").Range("D13:G17,I13:L17,D21:G25").Select
With Selection
If Worksheets("Master List").Range("CA26") = "% of Sales" Then
Selection.NumberFormat = "0.00%"
Else
Selection.NumberFormat = _
"_($* #,##0.00_);_($* (#,##0.00);_($*-??_);_(@_)"
End If
If Worksheets("Master List").Range("CA26") = "Total $" Then
Selection.NumberFormat = "_($* #,##0_);_($* (#,##0);_($*
""-""_);_(@_)"
End If
End With
Thanks in advance for your help.
Stephen
Reply With Quote
JE McGimpsey
View Public Profile
Find all posts by JE McGimpsey