I have a case statement and I want to assign values to a set of two variables when a condition is met but both my variables are returning zero. can you please help me
Sub FillRows()
Dim colNum As Integer
Dim loopNum As Integer
Select Case regExString
Case regExString = "HA"
colNum = 6
loopNum = 6
Case regExString = "HM"
colNum = 12
loopNum = 10
Case regExString = "HD"
colNum = 22
loopNum = 10
Case regExString = "HGK"
colNum = 32
loopNum = 1
Case regExString = "AA"
colNum = 33
loopNum = 6
Case regExString = "AM"
colNum = 39
loopNum = 10
Case regExString = "AD"
colNum = 49
loopNum = 10
Case regExString = "AGK"
colNum = 59
loopNum = 1
End Select
Range("CS20") = colNum
Range("CS22") = loopNum
End Sub
Bookmarks