Frederick,

I thought Chip Pearson had a list on his web site, but I couldn't find it. I
have a spreadsheet that gets the constants of any office app which you can
have if you want it.

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Frederick" wrote in message
...
I am just begining to use some of the VBA for Excel and using an example
from Stephen Bullen & John Greens Book called Excel 2002 VBA.

there is a Sub in one of their examples which is listed below....

I am at a loss as to where I can find the list of correct (vbConstant
Parammeters) to use when building Subs / Functions such as these..

I have searched through the Help and also the Object Browser, I can find
some vbContants but not the ones used in the example below. I am sure
there
are others which may apply to other functions etc.

any help would be much appreciated please.

Regards Fred

Sub GetRealLastCell()
Dim RealLastRow As Long
Dim RealLastCol As Long

Range("A1").Select
On Error Resume Next

RealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows,
xlPrevious).Row
RealLastCol = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns,
xlPrevious).Column

Cells(RealLastRow, RealLastCol).Select

End Sub

I thought Chip Pearson had a list on his web site, but I
couldn't find it.

Its at www.cpearson.com/zips/xlconsts2.zip


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Bob Phillips" wrote in message
...
Frederick,

I thought Chip Pearson had a list on his web site, but I
couldn't find it. I
have a spreadsheet that gets the constants of any office app
which you can
have if you want it.

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Frederick" wrote in message
...
I am just begining to use some of the VBA for Excel and using
an example
from Stephen Bullen & John Greens Book called Excel 2002 VBA.

there is a Sub in one of their examples which is listed
below....

I am at a loss as to where I can find the list of correct
(vbConstant
Parammeters) to use when building Subs / Functions such as
these..

I have searched through the Help and also the Object Browser,
I can find
some vbContants but not the ones used in the example below. I
am sure
there
are others which may apply to other functions etc.

any help would be much appreciated please.

Regards Fred

Sub GetRealLastCell()
Dim RealLastRow As Long
Dim RealLastCol As Long

Range("A1").Select
On Error Resume Next

RealLastRow = Cells.Find("*", Range("A1"), xlFormulas, ,
xlByRows,
xlPrevious).Row
RealLastCol = Cells.Find("*", Range("A1"), xlFormulas, ,
xlByColumns,
xlPrevious).Column

Cells(RealLastRow, RealLastCol).Select

End Sub

Thanks Bob, You are a mine of information. Good job we can all rely on you
and your colleagues.

If your Spreadsheet though is something different to that of Chip's and you
think it would be of use then I would love to take a copy if that's O/k.

Best Regards
Fred

"Bob Phillips" wrote in message
...
Frederick,

I thought Chip Pearson had a list on his web site, but I couldn't find it.
I
have a spreadsheet that gets the constants of any office app which you can
have if you want it.

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Frederick" wrote in message
...
I am just begining to use some of the VBA for Excel and using an example
from Stephen Bullen & John Greens Book called Excel 2002 VBA.

there is a Sub in one of their examples which is listed below....

I am at a loss as to where I can find the list of correct
(vbConstant
Parammeters) to use when building Subs / Functions such as these..

I have searched through the Help and also the Object Browser, I can find
some vbContants but not the ones used in the example below. I am sure
there
are others which may apply to other functions etc.

any help would be much appreciated please.

Regards Fred

Sub GetRealLastCell()
Dim RealLastRow As Long
Dim RealLastCol As Long

Range("A1").Select
On Error Resume Next

RealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows,
xlPrevious).Row
RealLastCol = Cells.Find("*", Range("A1"), xlFormulas, , xlByColumns,
xlPrevious).Column

Cells(RealLastRow, RealLastCol).Select

End Sub

Fred,

I'm not aware of any "master list" of Excel or Office constants.
I created the list in the workbook by programmatically reading the
type library of Excel -- the binary file that defines all the
different objects and constants in Excel. You can view the VBA
code in the workbook to see how its done.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Frederick" wrote in message
...
Thanks Chip, I am always amazed at how you Guys get to find out
where to get
all this valuable stuff. Is there a master reference I should be
buying?

Regards

Fred


"Chip Pearson" wrote in message
...
I thought Chip Pearson had a list on his web site, but I
couldn't find it.

Its at www.cpearson.com/zips/xlconsts2.zip


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Bob Phillips" wrote in message
...
Frederick,

I thought Chip Pearson had a list on his web site, but I
couldn't find it. I
have a spreadsheet that gets the constants of any office app
which you can
have if you want it.

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Frederick" wrote in
message
...
I am just begining to use some of the VBA for Excel and
using
an example
from Stephen Bullen & John Greens Book called Excel 2002
VBA.

there is a Sub in one of their examples which is listed
below....

I am at a loss as to where I can find the list of correct
(vbConstant
Parammeters) to use when building Subs / Functions such as
these..

I have searched through the Help and also the Object
Browser,
I can find
some vbContants but not the ones used in the example
below. I
am sure
there
are others which may apply to other functions etc.

any help would be much appreciated please.

Regards Fred

Sub GetRealLastCell()
Dim RealLastRow As Long
Dim RealLastCol As Long

Range("A1").Select
On Error Resume Next

RealLastRow = Cells.Find("*", Range("A1"), xlFormulas, ,
xlByRows,
xlPrevious).Row
RealLastCol = Cells.Find("*", Range("A1"), xlFormulas, ,
xlByColumns,
xlPrevious).Column

Cells(RealLastRow, RealLastCol).Select

End Sub