Advertisement
Guest User

Untitled

a guest
Feb 24th, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.33 KB | None | 0 0
  1. INDIRECTVBA(ref_text As String, Optional active_A1 As Boolean) As String
  2. If active_A1 = False Then
  3. ref_text = "=" & ref_text
  4. ref_text = Application.ConvertFormula(Formula:=ref_text, fromReferenceStyle:=xlR1C1, toReferenceStyle:=xlA1)
  5. INDIRECTVBA = Range(ref_text)
  6. Else
  7. INDIRECTVBA = Range(ref_text)
  8. End If
  9. End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement