Get Active Sheet

[scott]

I've got the worksheet and cell hard-coded below. What's the syntax to
replace "sheet1" withe name of the active worksheet and replace "a7" with
the active cell?

I'd like to be able to assign both above mentioned values to variables like
"pageActive" and "cellActive" and then be able to insert those variables
into the code below. I'm familiar with Access VBA, but don't know how to
treat Excel's vba variables and quotes.

CODE:

Worksheets("sheet1").Range("a7").Value

 

[Guest]

I'm not just 100% sure what you want but here goes

dim strActiveSheet as String
dim strActiveCell as String

strActiveSheet = ActiveSheet.Name
strActiveCell = ActiveCell.Address
Worksheets(strActiveSheet).Range(strActiveCell).Value

 

[scott]

that get's it.

I'm not just 100% sure what you want but here goes

dim strActiveSheet as String
dim strActiveCell as String

strActiveSheet = ActiveSheet.Name
strActiveCell = ActiveCell.Address
Worksheets(strActiveSheet).Range(strActiveCell).Value