josephmosby

Sub HideRows()

Dim testRow As Integer
Dim testSht As Worksheet
Set testSht = Worksheets("Sheet1")
testRow = 2

While Cells(testRow, 1).Value <> "Total"
    If Cells(testRow, 2).Value = "" And Cells(testRow, 4).Value = "" And Cells(testRow, 6).Value = "" Then
        If Cells(testRow, 1).Value <> "" Then

josephmosby

Private Sub ForexPull()

' Created by Joseph H. Mosby on 12/22/2010
' GitHub version removes some employer-specific code

' Declare variables
    Dim rngFXMo As Range
    Dim rngFXDa As Range
    Dim rngFXYe As Range
    Dim strFXMo As String