Welcome to FreeSoftwareServers Confluence Wiki

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'''''
  • No labels

This site is just a Tech Blog, nothing is guaranteed!