EXCEL_DOC001 VERSION: 2.1 - 06MAR2016

--- COLUMNS & ROWS ---

LAYOUT

Columns(iA).ColumnWidth = 0.33          'Default 0.83

Rows(iA).RowHeight = 12  

RGB Color

Cells(iX, iY).Interior.Color = RGB(iRed, iGreen, iBlue)  

ColorIndex

Cells(iDealNo + 1, "H").Interior.ColorIndex = 22

POSITION

Dim iMaxrow As Long

iMaxrow = Worksheets("HDA Overview").range("B4").Value

Cells(iDealNo, "A").Value = "DEAL_SEQ_NUMBER"

iBuyPrice = Worksheets("HDA DataAdd").Cells(iBuyDay, "B").Value

--- WORKSHEET ---

Application.Workbooks(iStidTagBook).Worksheets("TAG_SUMMARY").Activate

--- FILE COMMANDS ---

CLOSE

Workbooks("close-open-workbooks.xls").Close

Workbooks(1).Close

ActiveWorkbook.Close

4. The code line below closes all workbooks that are currently open.

Workbooks.Close

OPEN

Workbooks.Open ("sales.xls")

6. You can also use the GetOpenFilename method of the Application object to display the standard open Dialog box and select the file (without actually opening the file).

Dim MyFile As String

MyFile = Application.GetOpenFilename()

Workbooks.Open (MyFile)

MORE INFO: http://www.excel-easy.com/vba/examples/close-open.html

--- END ---

--- INTERFACE AND DEBUG ---

MsgBox "Error - more than 1 column." & vbNewLine & "You must select only one range in one column."

MsgBox iLoopStart & " " & iLoopEnd

--- END ---

Sub SG_x_Test_RowColDim()

'TEST

    Dim iA, iB, iCount As Integer, iCC As String

    Dim iRed, iGreen, iBlue, iRow As Integer

    iCount = 300                                'Default 30

    iCC = "GREEN"

    For iA = 1 To iCount

        Columns(iA).ColumnWidth = 0.33          'Default 0.83

        Rows(iA).RowHeight = 12                 'Default 7.5 - use 12 to fit text size 8

    Next

    Columns(1).ColumnWidth = 20

    For iRow = 1 To 400

        iX = Int((60) * Rnd + 1)

        iY = Int((iCount - 1) * Rnd + 1) + 1

        If iCC = "RED" Then

            iRed = Int((200) * Rnd + 55)

            iGreen = Int((20) * Rnd + 20)

            iBlue = Int((55) * Rnd + 20)

        ElseIf iCC = "GREEN" Then

            iRed = Int((20) * Rnd + 20)

            iGreen = Int((200) * Rnd + 50)

            iBlue = Int((40) * Rnd + 20)

        ElseIf iCC = "BLUE" Then

            iRed = Int((200) * Rnd + 55)

            iGreen = Int((20) * Rnd + 20)

            iBlue = Int((55) * Rnd + 20)

        Else

            MsgBox ("ERROR - SELECT COLOR TYPE")

            Exit Sub

        End If

        Cells(iX, iY).Interior.Color = RGB(iRed, iGreen, iBlue)

Next iRow

End Sub