Project Two - Sheet Number

[Barry Wright]

I have now started my 2nd VBA Excell Project...Wo Hoo! I have
changed my Name for this Project.


With the fllowing Sub I was trying to return the Sheet NUMBER a
cell was changed on. (1, 2, 3, 4, etc) This will not work of course,
because "ActiveSheet.Name" returns the sheet NAME, not Number. Anyone
know how to do this?

Private Sub Workbook_SheetChange()
Dim cRow as Long
Dim cCol as Long
Dim cSheet as Long

cRow = Target.Row
cCol = Target.Column
cSheet = ActiveSheet.Name
MSGBOX cSheet
End Sub

 

[Bob Phillips]

cSheet = activesheet.index

--

HTH

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

 

[Guest]

try acivesheet.index

 

[Gord Dibben]

Barry

Change to.....cSheet = ActiveSheet.Index

Gord Dibben Excel MVP