Name a Sheet a variable?

[robfo0]

Is it possible to make my macros a BIT shorter by defining "Sheets("sheetname")" as a variable in my macro? I know i can use:
variable=activeworksheet.name

then :

worksheets(variable).select

but i cant do it like this?:

Sub test()
Dim DataSheet As Worksheet
Dim CurrFile

CurrFile = ActiveWorkbook.Name
DataSheet = Worksheets("DataSheet")

BackUpRange = DataSheet.Range("a1:a5")
end sub

Just wondering, thanks

[Al Chara]

Why do you want to do this?

You are trying to set an object variable to a string variable. I don't think you can do that.

Wait, is this what you want to do?

Dim DataSheet As Worksheet
Dim BackUpRange As Range
Set DataSheet = Worksheets("Sheet1")
Set BackUpRange = DataSheet.Range("a1:a5")

[ This Message was edited by: Al Chara on 2002-04-17 15:12 ]

[Jack in the UK]

file names seem to be comfusing in VBA suggest add time to end of whatever file name them covers any reason poss date also,, whats more varialbe kinda off,

[robfo0]

Al, thats exactly what i was looking for, thanks much

[Al Chara]

If you go into VBA and look at the project explorer it will show you a list of all the worksheets. For example:
Sheet1 (DataSheet)
Sheet2 (Sheet2)
When you change the sheet tab name you just change the name inside ()
You can change the name outside the () by clicking on it and then hitting F4 (to bring up the properties window).
Change (Name) to DataSheet (for example) and now you can do the following:
DataSheet.Range("a1:a5")
instead of Worksheets("DataRange").Range("a1:a5")