Row & column headings

  • Thread starter Thread starter Ross Bennett
  • Start date Start date
R

Ross Bennett

Can I hide row & column headings when people open a particular work book as
it will be preformatted and appear as an application ?
 
See Tools/Options/View and deselect Row & Column headings. However, the user can undo that and you can't stop him without using macros.
 
Tools/Options/View "Row & Column Headers".

If you want a macro, set the macro recorder before changing the menu
option.
 
Following function can help you to do the job, whenever you like it

Public Function ColumnNumberToName(intnummer As Integer) As String

'*Purpose: Converts an EXCEL Column Nummer to its equivalent
' Name in Letters
'*Accepts: -intNumber: the Number of the Column (Maximum = 256)
'*Returns: The Column Name e.g Column Number 3 corresponds to C.
'* A Null String is returned when an invalid colum
number is entered.

Const c_strAlfabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

If intnummer > 256 Then GoTo PROC_ERROR

Dim intRestNummer As Integer
intRestNummer = intnummer Mod 26

Dim intEersteNummer As Integer
Dim strEersteLetter As String
Dim strTweedeLetter As String

Select Case intnummer

Case Is <= 26

strEersteLetter = Mid$(c_strAlfabet, intnummer, 1)
strTweedeLetter = vbNullString

Case Else

intEersteNummer = Fix((intnummer - 26) / 26) + 1
strEersteLetter = Mid$(c_strAlfabet, intEersteNummer, 1)
strTweedeLetter = Mid$(c_strAlfabet, intRestNummer, 1)

End Select

Dim strResult As String
strResult = strEersteLetter & strTweedeLetter

ColumnNumberToName = strResult
GoTo PROC_EXIT

PROC_ERROR:

MsgBox "Only 256 Columns are permitted " & vbCrLf & _
"in EXCEL. Column Number was = " & CStr(intnummer), , _
"ColumnNumberToName"

ColumnNumberToName = vbNullString

PROC_EXIT:

Exit Function

End Functio
 
Back
Top