Setting A Default Value

[Faraz A. Qureshi]

I am trying to figure out a way to set a default value. For example:

In a code like:

Function WS(rng As Range) As String
WS = "The name of the worksheet is " & rng.Worksheet.Name & "."
End Function

If no argument is inserted I want the rng of the active cell to be considered.

 

[Jacob Skaria]

Hi Faraz

Try the below

Function WS(Optional rng As Range) As String
If rng Is Nothing Then Set rng = Application.Caller
WS = "The name of the worksheet is " & rng.Worksheet.Name & "."
End Function

If this post helps click Yes

 

[Faraz A. Qureshi]

Wow Jacob,

Sure do need a friend like you to teach me such skills. Any free recommended
ematerial on net for VBA?

Please do see if you can email me at (e-mail address removed).

Sure do seek to become a Jacob myself.

Thanx in advance PAL!!!