Page tree

Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

No Format
Public colLetter As Variant

Sub Test()
	Dim rng As Range
	Set rng = ActiveWorkbook.ActiveSheet.Range("A1:A1")
	Call GetColLet(.Range("A1:A1"))
End Sub

'''''GetColLet'''''
Public Sub GetColLet(var As Range) 
 colLetter = Split(var.Address, "$")(1) 
 MsgBox colLetter 
End Sub
'''''EndGetColLet'''''