Option Explicit
Sub testme()

Dim myStr As String
myStr = ""
On Error Resume Next
myStr = ActiveCell.Name.Name
On Error GoTo 0

If LCase(myStr) Like LCase("?type*") Then
Select Case LCase(Mid(myStr, 2))
Case Is = "type1": Call SubA
Case Is = "type2": Call SubB
End Select
End If

End Sub

Sub SubA()
MsgBox "suba"
End Sub

Sub SubB()
MsgBox "subb"
End Sub

Excel User wrote:

Hi,

I have a row which contain a series of named ranges (atype1, atype2, atype3
..... ztype1, ztype2, ztype3)

What I trying to do is depending on the activecell name (actually the type
part of the name typea, typeb, typc) run a function, e.g.

if the activecell name = "type1" then run functiona,
if the activecell name = "type2" then run functionb etc

Is it possible to use the

If Target.Address = "$A$100" Then

If activecell name = "type1" then run functiona
etc
End If

End If

I tried using the activecell.range.name but this does not work?

Any help is appreciated



--

Dave Peterson