Selection Code

[bw]

Consider the following:
Range(Cells(CurrentRow, 1), Cells(CurrentRow, 7)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Cells(CurrentRow, 9).Select
Selection.Locked = False
Selection.FormulaHidden = False

Is there a way to combine the two select statements into just one?

Thanks,
Bernie

 

[Bob Phillips]

With Range(Cells(CurrentRow, 1), Cells(CurrentRow, 7))
.Locked = False
.FormulaHidden = False
End With
With Cells(CurrentRow, 9)
.Locked = False
.FormulaHidden = False
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Don Lloyd]

Hi,
The following (not tested) doesn't really combine the two operations but it
does avoid the need to select

With Range(Cells(CurrentRow, 1), Cells(CurrentRow, 7))
.Locked = False
.FormulaHidden = False
End With
With Cells(CurrentRow, 9)
.Locked = False
.FormulaHidden = False
End With

Don

 

[bw]

Thanks for the replies!

I should have been more specific in my question.
The following two select statements:

Range(Cells(CurrentRow, 1), Cells(CurrentRow, 7)).Select
Cells(CurrentRow, 9).Select

can be combined into a single statement as follows:
Range("A1:G1,I1").Select

So how do I express the single statement using the variable "CurrentRow"?

Thanks,
Bernie

 

[Guest]

Bernie,

If you are always selecting columns A to G and column I you could do it like
this:

Dim myRange As Range

Set myRange = Range("A" & CurrentRow & ":G" & CurrentRow & ",I" & CurrentRow)
myRange.Select 'this line is not really required
Selection.Locked = False
Selection.FormulaHidden = False

Set myRange = Nothing

hth,

big t

*****************************************

 

[Guest]

Of course, I should have mentioned that if you don't select myRange you need
to do it like this:

Dim myRange As Range

Set myRange = Range("A" & CurrentRow & ":G" & CurrentRow & ",I" & CurrentRow)
myRange.Locked = False
myRange.FormulaHidden = False

Set myRange = Nothing

cheers
big t

*************************

 

[bw]

Thanks big!

My first thought when I saw your solution was...Doh! (I forget that
concatenation can be used for things like this).

Thanks for the reminder, and your help!
Bernie