aptavout

For Each wb In Workbooks
  wb.Activate
  Debug.Print ActiveWorkbook.Name
  wb.Close
Next

aptavout

Range("A1").Select
Range(ActiveCell, ActiveCell.CurrentRegion).Select

For Each row In Selection.Rows
  Debug.Print Cells(row.Row, 1) ' value of first column in current row
Next

aptavout

Range("A1").Select
Range(ActiveCell, ActiveCell.CurrentRegion).Select

For Each row In Selection.Rows
  Dim rowStr As String

  For Each col In Selection.Columns
    rowStr = rowStr & Cells(row.Row, col.Column)
    If col.Column < Selection.Columns.Count Then
      rowStr = rowStr & ","

aptavout

@echo off

setlocal

set winincludes=C:\Program Files\PellesC\Include\Win
set sysincludes=C:\Program Files\PellesC\Include
set INCLUDE=%winincludes%;%sysincludes%

rem /Ze: use Microsoft extensions to avoid winnt.h "No specific architecture" error
pocc sqlite.c /Ze

aptavout

@echo off

setlocal

set winlib=C:\Program Files\PellesC\Lib\Win
set syslib=C:\Program Files\PellesC\Lib
set LIB=%winlib%;%syslib%
set LINKFLAGS=-subsystem:console

polink /V2 /DEFAULTLIB:sqlite3.lib sqlite3.obj main.obj /OUT:test-sqlite.exe