Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- INDIRECTVBA(ref_text As String, Optional active_A1 As Boolean) As String
- If active_A1 = False Then
- ref_text = "=" & ref_text
- ref_text = Application.ConvertFormula(Formula:=ref_text, fromReferenceStyle:=xlR1C1, toReferenceStyle:=xlA1)
- INDIRECTVBA = Range(ref_text)
- Else
- INDIRECTVBA = Range(ref_text)
- End If
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement