Kevin Past this into an empty vba module
Sub RSelect()
Dim MyRange As Range
Set MyRange = ActiveSheet.Range("A1:A10")
MyRange.Select
End Sub

Then past this into the code window for each "Sheet" Object
Private Sub Worksheet_Activate()
RSelect
End Sub

Hope this helps.
Dan Thompson

"Kevin McCartney" wrote:

HI TWIMC,

Is there a way to enter one NAMED range that will work on all sheets in a
workbook? E.g. I'd like to be able to set the range A1:A10 as MyRange on
Sheet1 and I when I select Sheet2, and select MyRange, I want range A1:A10 on
Sheet2 to be selected and not A1:A10 on Sheet1.

Now I know I can select each sheet in turn and select the same range and
type in the NAME box sheetname!MyRange but it's a bit to much manual work for
a workbook with over 50 sheets and potentially the range required can change
shape per workbook, (not sheet).

Any ideas, much appreciated

TIA
KM